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EDITORIAL JOTTINGS 


You will again find more helpful information on 
BEEBUGSOFT products under the heading 
BEEBUGSOFT Forum. This month we give details of 
two useful routines to use with Wordease and 
Hershey Characters. The code for both new routines 
is included on the magazine cassette/disc. We expect 
to publish further useful routines for BEEBUGSOFT 
programs in this way in the future. 

Another BEEBUGSOFT package which has proved 
very popular with members since its launch is 
Magscan, the disc-based bibliography for all issues of 
BEEBUG magazine. When published, Magscan was 
complete up to the end of volume 3. Starting with this 
issue we shall be including each month on the 
magazine cassette/disc, the complete Magscan entry 
for that issue. In this way you will be able to keep 
your Magscan bibliography up to date as each new 
issue appears. To catch up with volume 4, all the 
Magscan entries for issues 1 to 5 (first half year) are 
available separately on disc. 

Another special offer for BEEBUG members is the 
Computer Concepts Speech ROM reviewed in this 
issue. This is available to members at only £31.00 
including VAT and p & p. Full order details in the 
supplement. 


MICRO USER SHOW 


We hope to see as many of you as possible at the 
Micro User Show (stand 80) from the 14th to 17th 
November at the New Horticultural Hall, London. We 
shall not be attending the recently arranged Acorn 
User Show the following week. In our view this new 
show is unnecessary at this time and not in the best 
interests of BBC micro users. Over the last two years 
the Micro User Show has established itself as THE pre- 
Christmas show for the Beeb. 


PROGRAM CLASSIFICATION 


All programs in the magazine, and on the 
magazine cassette/disc, are marked with the symbols 
shown below. An unmarked symbol indicates full 
working, a single line through a symbol shows partial 
working (normally some modifications will be 
required), and a cross through a symbol indicates a 
program that will not work on that type of system. 
There is also a symbol for the B+ which includes the 
128K version. 


Basic I I Electron Ø 
Basic II I Disc D 
Tube e 


Cassette = 


Model B+ + 


S 


29 FEB 
E 


POSTBAG 
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SHEILA IN TROUBLE AGAIN EPFOM 


B.D.Cocksedges' letter, 
which you published in the 
August/september issue, has 
solved a problem which has 
been frustrating me for 
some time now ever since I 
first tried out the RS423/ 
cassette programs in the 
Advanced User Guide without 
Success. Also, Amcom's game 
"Space Hi-Way", in which 
the main section loads via 
the RS423 interface, refus- 
ed to work. On checking I 
found that I too have the 
Special Acorn chip. So far 
all attempts to obtain a 
replacement Ferranti chip 
have proved unsuccessful. 


However , changing the 
*FX7,3 and *FX7,4 commands 
to *FX7,8 in the A.U.G. 
programs enables them to 
work perfectly, while 
changing the m/c byte in 
the Amcom game at &5211 to 
&81 (setting bits 3, 4 & 5 
to zero) has cured the 
loading problem, enabling 
me to appreciate this as 
one of the best games I 
have seen of its type. 

D.Kerr Jamieson 


Acorn state that they are 
unable to exchange chips as 
both meet their specifica- 
tion, and that any problems 
that may arise from using 
undefined values are the 
responsibility of the soft- 
ware writer. 


HARDLY SOFTWARE 


am a radio amateur 
VER and it is quite 
incredible the number of 
Beebs being used on the air 
for slow scan TV, reception 
of Meteosat & RTTY as well 


as the ‘common or garden' 
station logbook. I partic- 
ularly enjoyed the latest 
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Programmer Project 
and look forward to the 
follow-up RAM article. 


The Beeb really seems 
the serious machine for the 
hobbyist/scientist & educa- 
tionalist so I would look 
forward to any more soft- 
ware/hardware projects in 
this field. 


Ken Linney 
ACORN CLAIM 
COMPATIBILITY 
Following your table 


showing the compatibility 
of various ROMs with the B+ 
in Vol.4 No.3, I list below 
the Acornsoft ROMs with 
their usability on the B+. 


View 1 z 4 ***k 
View 2.1 wt Gad) 
Viewsheet EX 
ViewStore ARAR 
Logo KK 
BCPL kkkk 
Basic Editor **** 
Forth RARE 
LISP *k*kk 
Comal kkkk 


All the Acornsoft ROMs can 
take advantage of the 
shadow memory, which is not 
generally true of the four 
star FOMs in the review. 
View 2.1 will work correct- 
ly and take advantage of 
the extra memory using the 
patch routine from Acorn. 
Rob Macmillan 
Acornsoft 


We were perhaps a little 
harsh, on reflection, in 
our original classification 
of View 1.4. The Acornsoft 
patch referred to for use 
with View 2.1 is included 
on this month's magazine 
cassette/disc. We can also 
provide a photocopy of the 
listing on receipt of an A5 
SAE (marked VIEW PATCH). 


ATPL LOVES OPUS 


Thank you for your 
letter about the incompati- 
bility of fitting ATPL's 
ROM Board with the OPUS 
DDOS in the Beeb. On asking 
around my local computer 
shops I came across the 
suggestion of stacking two 
40 pin sockets under the 
OPUS DDOS Board. This is 
not, as they say, very good 
if your Beeb is always on 
the move, but I have found 
no problems so far. 

G.A. Smith 


BEEBUGSOFT MAGSCAN 

use your Masterfile 
m. the BEEBUG bibliography 
utility Magscan and find 
both excellent. I was 
wondering whether it was on 
the cards for you to 
publish in BEEBUG or on 
disc a bibliography program 
that can be customised to 
user requirements. 

C.Dunn 


There has been considerable 
interest in Magscan, and as 
detailed in this month's 
editorial  jottings, we are 
now including a Magscan 
update on each magazine 
cassette/disc. There is no 
reason, in principle why 
you should not create other 
bibliographies to use with 
the same program, though 
you are restricted to the 
basic Magscan format. For 
the best results, you are 
recommended to delete lines 
1260 to 1280 and change 
line 1290 to read IF I%>0 
AND... Then call your new 
datafiles VOLI, VOL2 etc 
and use either Wordwise or 
View to prepare entries as 
described in the Magscan 


manual. 
“el 
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WORDEASE 
Canon/Kaga Printer 


Codes 
One of the attractive 


features of Wordease is its 


ability to insert printer 
codes into a Wordwise Plus 
file at the touch of a key. 
The routines are supplied 
with codes for Epson 
printers as a default, and 
the manual explains how to 


insert codes for other 
printers. 
On this month's 


magazine cassette/disc you 
will find the necessary 
modifications to use this 
Wordease routine with the 
popular Canon PWIØ8Ø and 
Kaga KP81Ø printers. Our 
thanks to Brian Quentin of 
Chelmsford for sending in 
this modification. 


HERSHEY 
CHARACTERS 


We must again thank one 


of the members - Peter 
Miller from Ilford - for 
adding a most useful 
facility to one of our 


products. Peter has sent in 
a modification to the 
Hershey Characters program 
which enables this package 
to dynamically load in the 
Hershey character data as 
and when it is required by 
the user's program. This 
allows wider choices of 
characters and even larger 
programs to be written. 


Unfortunately, the pro- 
gram modifications are too 
large to be described here, 
but they are included on 
this month's magazine 
cassette/disc along with 
full instructions on their 
use. Tube users should set 
PAGE to &1900 before using 
the modified program. 


MAGSCAN 


The BEEBUG Bibliography 
Disc (Magscan) bas proved 
to be of great interest and 
service to many members. 
Thank you for the many 
letters that we have 
received on the subject. 


As sold, the Magscan 
disc provides a full index 
of BEEBUG hints, tips, 
reviews, programs and all 
the other articles for 
volumes 1, 2 and 3 of the 
magazine. It also includes 
details on how to update 
the disc for volume 4. 


Starting with this 
issue of BEEBUG, we are 
including the index file 


for each month's issue of 
BEEBUG, on that month's 
magazine cassette/disc. You 
will find this month's 
Magscan index contained in 
the file MSCN406. 


If you wish to bridge 
the gap between the first 
three volumes and this 
issue, the Magscan entries 


for  Vol.4 Nos.1-5 are 
available on disc from 
BEEBUGSOFT at a cost of 


£4.50 plus 5Øp postage. 


DOUBLE DENSITY 


Every month we receive 
a large number of letters 
from members who have 
purchased a double density 
filing system of one make 
or another, and who are 
disappointed to find that 
many commercially produced 
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programs will not run on 


them. 


This is often the case, 
even in so called ‘Acorn 
Compatible' modes. Contrary 
to popular thought, it is 
often nothing to do with 
software protection. Fre- 
quently users find that any 
program using random 
access, such as a database, 
disc utility program or 
spelling checker, will not 
run on their double density 
system. 


Our advice to potential 
purchasers of double den- 
sity systems would be to 
think very carefully before 
committing yourself to any 
non-standard equipment. 


Of all the makes that 
we have tested, only the 
Watford DDFS 1.53 and Opus 
DDOS 3.45 double density 
disc systems work fully 
with Masterfile. If you 
wish to find out more about 
double density compat- 
ibility with any of our 
programs, please telephone 
us on the BEEBUGSOFT 
hotline - 0727-40303. 


EXHIBITIONS 


We will be exhibiting 
the complete range of 
BEEBUGSOFT products at the 
London Micro User Show on 
the “14th to 17th: "ef 
November. The show is at 
the New Horticultural Hall 
in Westminster and BEEBUG- 
SOFT will be there to 
demonstrate the new range 
of BBC products. We look 
forward to the opportunity 
of meeting members at what 


looks like being a most 
exciting exhibition. 
Please note that this 


will be the only exhibition 
that we will be attending 
before Christmas. 

"Si 


5 


B DOUBLE PLUS 


Acorn has been busy and 
released three new products 
at the PCW show at Olympia. 
First and foremost is the 
128K model B+. This is 
based on the same circuit 
board as the 64K B+ but 
with the addition of a 64K 
RAM module. The extra RAM 
is in the form of four 16K 
paged RAM banks. The new 
machine has a full 64K 
available for Basic and 
costs £499. Owners of the 
64K B+ can upgrade their 
machines to 128K with an 
upgrade kit that will cost 
in the region of £25. 


Owners of the model B 
can also now upgrade their 
machines to imitate at 
least one function of the 
B+. The 1770 disc upgrade 
kit costs £49.95. The kit 
consists of a small circuit 
board containing a 1770 
disc controller chip, as 
used in the p+, instead of 
the 8271 that the old Beeb 
is designed to take, and a 
new DFS which includes 
format, 40/80 switching, 
and other commands. For a 
further £29.95 you can add 
the ADFS upgrade kit. This 
will give any Beeb fitted 
with a 1770 the Advanced 
Disc Filing System used in 
the ABC micros and the 
Electron Plus 3. Acorn, as 
ever, is on 0223-214411. 


LE WATFORD 

Watford Electronics has 
a new modem to tempt you 
with. Le Modem is a £102 
package comprising an 
auto-answer, auto-dial, 
auto-baud selection multi- 
Standard modem to connect 
to the IMHz bus, along with 
software on ROM to provide 
easy access to Prestel, BT 
Gold, The Source and other 
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international systems, bul- 
letin boards, and so on. 
Terminal emulation is also 
included. Needless to say, 
Le modem has not (yet) 
received BT approval. 


på 
Ë 


fe, Modem 


Watford has also 
released a new version of 
its ROM expansion board. 
The new board holds just 
eight ROMs but can also 
take eight banks of 16K RAM 
to load sideways software 
into. Prices start at £44 
for just 16K of RAM fitted 
and rise to £125 for a 
board with the full 128K. 
Watford Electronics is on 
9923-37774. 


NEW BOOKS 

The 'BBC Micro and 
Electron Book' (£11.95 from 
McGraw-Hill) is not going 
to turn any heads for 
originality of subject 
matter. However, this large 
volume does seem to pack in 
more everyday data and 
useful routines than most 
others. Another useful 
reference work is the '6502 
Reference Guide' from 
Melbourne House (£9.95) . 
Written for all computers 
that use this processor, 
the guide contains in- 
formation on the timing, 
instruction set, addressing 
modes, hints, routines, and 
lots more. 


News News News News News News .... 


If the BEEBUG spread- 
sheet (Vol.4 No.s 9 and 19) 
impressed you but you still 
don't know what to do with 
one, then 'Computer Spread- 
sheets' (£6.95 form BBC 
soft) may be the answer. 
The ` book covers small 
spreadsheets such as 
Ultracalc 2 and also the 
more professional Visicalc 
and Lotus 1-2-3. 


Following on from the 
reviews of interfacing 
books in BEEBUG Vol.4 No.5) 
yet another book on this 
subject has appeared. 
'Microcomputer interfacing' 
from Collins (£8.95) is 
aimed mainly at students of 
computer science, though, 
it contains much to appeal 
to any Beeb owner. 


NEW SOFTWARE 

The software Scene 
seems to be having a summer 
recess at the moment. 
However, a few new faces 
have appeared. Martech, the 
champion of the armchair 
sportsman have released 
'Geoff Capes Strongman' for 
£8.95. A little different 
is "Zoids" (£8.95) also 
from Martech - a zap the 
aliens game based on the 
Tomy Zoid toys. BBC Soft 
has released yet another 
version of its chess 
program. 'White Knight 12' 
is an enhanced version of 
the game, on disc only, for 
513,25 direct from BBC 
Soft. Described as, 'as 
epic as the Norse sagas and 
as tiresome as any book by 


Ba Bon Hubbard', Silver 
Soft has produced an 
adventure based on the 
sooof book 'Bored of the 


Rings'. Followers of Fordo, 


Aragant, Giblet, and 
Grandalf can join their 
quest for £6.95. 5] 
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Build your own 
Database Manager 
Beebug Filer 


— a database for all 


Editor Mike Williams launches 
an exciting new software project 
for all BEEBUG readers in which 
he describes how to build your 
own flexible database program. 


One of the major uses of comnuters 
today is the storing of large quantities 
of information, and many home micro users 
find this an attractive and worthwhile use 
for their micro. To match this interest we 
are presenting our own BEEBUG database. 


Beginning this month, we present a disc 
based database system that will meet many 
practical needs. We start with the basic 
program, showing how to create a simple 
database file. Further articles will add 
to the basic program to provide selective 
retrieval of records, formatted output, 
sorting and other facilities. The program 
will be entirely in Basic, and we will 
show you how to modify and extend the 


program to cater better for your own 
requirements if you wish. 
Of course, a program published ina 


magazine cannot hope to provide all the 
features and power of commercial packages, 
like our own Masterfile and Acornsoft's 
ViewStore (reviewed in this issue), but 
for those considering purchase, our own 
program will provide a useful testbed for 
your ideas, before parting with your cash. 


THE SOFTWARE PROJECT 

The program listed this month is 
complete and fully working as far as it 
goes. It provides the basic facilities for 
creating a database file of your choice, 
entering, displaying and deleting records. 
The program is written so that further 
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functions can be readily added and 
existing functions improved as may seem 
desirable for this project. Although we 
have planned the additional features to be 
added to the program, we would welcome any 
feedback or ideas, and the best of these 
may be incorporated in a further article. 


The database has been designed specifi- 
cally for disc systems allowing direct, 
rather than just sequential, access to 
records. The program is command-driven, 
rather than menu-driven. Although menu- 
driven programs are very popular, commands 
provide much more direct and efficient 
ways of controlling an application, once 
you have learnt their meanings. 


The program is designed for mode 3 to 
allow the maximum screen space for 
displaying records and other information. 
The screen is divided up into two main 
areas, the principal section for 
presenting records and other information, 
with four Lines reserved at the bottom of 
the screen for commands and other user 
responses. The initial set of commands and 
their functions are as follows: 


CREATE Create a new file on disc 
OPEN Open an existing file for use 
CLOSE Close a file in use 

ADD Add a new record to the file 
DISPLAY Display records from the file 
DELETE Delete a record from the file 
END Close any file in use and exit 


All commands can be abbreviated to a 
minimum of two letters, and may be entered 
in upper or lower case. Some commands can 
use parameters as described below. 
Parameters must always be separated from 
the command (or its abbreviation) by a 
single space. All the usual *commands may 
be used as well. 


FILE MANAGEMENT 


The first three commands listed above 
are concerned with file management. Both 
CREATE and OPEN require a filename to be 
specified. When you use CREATE to set up a 
new file you will need to specify a file 
description as follows: 

Number of records 

Number of fields per record 

Fieldname For each 

Fieldwidth field 
You will have a chance to either confirm 
or reject your file description. 


E, 


RECORD MANAGEMENT 1540 REPEAT 

Records are entered using the ADD 1560 INPUT"-» " commands 
command. An empty record is displayed on 1580 C=FNvalidate (commands) 
the screen and is filled in field by field 1600 IF C=Ø THEN PRINT"Unrecognised com 
before you confirm whether it is to be mand" 
written to disc. All records may be 1620 UNTIL C 
displayed using the DISPLAY command, or 1630 IF C=1 THEN PROCcreate (pm$) 
any individual record displayed by 1640 IF C-2 THEN PROCopen (pms) 
specifying its record number. Similarly a 1650 IF C=3 THEN PROCclose | 
record to be deleted is displayed on the 1660 IF C=4 THEN PROCadd (pm$) | 
screen so that you can confirm your 1670 IF C=5 THEN PROCdisplay (pm$) | 
action. Deleted records initially remain 1680 IF C=6 THEN PROCdelete (pm$) 
in the file and appear as blank records on 1690 IF C=7 THEN exit3=TRUE | 
the screen. However, when you close the 1870 IF C-99 THEN PROCstar (pm$) 
file or exit from the program, the file is 1880 ENDPROC | 
compacted to lose the deleted records. 1890 : 


Next month we will give a more detailed 2220 LOCAL found$,I,P:found$-0 
description of the file structure and the 2240 FORI=1 TO N 
program as well as adding further to the 2260 IF (ASC (MIDS (C$,1) ) AND223) -ASC (MID 
existing program. When you enter the $(com$(I),1)) AND (ASC (MID$ (C$,2) )AND223 
program please keep to the line numbering ) =ASC (MIDS (com$ (I) ,2)) THEN found%=I 


2200 DEF FNvalidate (C$) | 


given so that later additions will fit 2280 NEXT I 
with no problems. 2300 P=Ø:IF C$>"" THEN P=INSTR(C$," ") 
2320 IF P=Ø THEN ="" ELSE pm$=MID$ (C 
Basic I users should replace OPENUP by 2340 IF ASC(C$)=42 THEN pm$=MID$ (C$,2): 
OPENIN at lines 2869 and 3260. found$-99 
— a 2360 -found$ 
2380 : 
1Ø REM BEEBUG FILER version Bl.9 2500 DEF PROCcreate (p$) :LOCAL I 
20 REM Author Mike Williams 2520 IF pS="" THEN PRINT"No file given" 
30 REM BEEBUG November 1985 - : ENDPROC 
100 MODE3:0N ERROR PROCerror: END 2540 IF open’ THEN PRINT"File already o 
120 PROCsetup: PROCtitle: PROCwindow2 pen": ENDPROC 
140 REPEAT: PROCcommand: UNTIL exit% 2560 PROCwindow!:CLS 
165 PROCcClose:VDU26,12:*FX4,Ø 2580 PRINTTAB(5,0)"Creating file ";p$ 
170 END 2600 PRINTTAB (5,2) "Number of records:": | 
180 : recn-VAL (FNinput (24,2,4,".")) 
1000 DEF PROCsetup 2620 PRINTTAB (45,2) "Number of fields:" | 
1020 LOCAL I:exit$-FALSE:open$-FALSE 2640 REPEAT:f-VAL (FNinput (63,2,2,".")): 
1040 maxf=12:X=Ø:Y=Ø:*FX4,2 UNTIL f<=maxf 
1060 DIM com$ (20) ,recordS (maxf) , field$ ( 2660 FOR 1=1 TO f | 
maxf) ,width$ (maxf) ,os 40 2680 PRINTTAB (5,3+1) "Field"; STR$ (I) 
1080 READ N 2700 PRINTTAB (16,341) "Name"; | 
1100 DATA 7 2720 field$ (I)-FNinput(21,3-41,12,".") 
1120 FOR I=] TO N:READ com$(I):NEXT I 2740 PRINTTAB (45,3+1) "Fieldwidth" 
1140 DATA CREATE ,OPEN,CLOSE , ADD ,DISPLAY 2760 REPEAT:width3 (I )=VAL (FNinput (56,3+ 
116Ø DATA DELETE,END I,2,".")):UNTIL width%(I)<=64 
118Ø ENDPROC 278Ø NEXT I:PROCwindow2 
1200 : 2800 IF FNask("Confirm (Y/N): ")>2 THEN 
13ØØ DEF PROCtitle ENDPROC 
1320 PRINTTAB(28,1)"B EEB U G FIL 2820 recs-2*f:FOR I=1 TO f:recs=recstwi 
E R" dth$ (I):NEXT I 
1340 PRINT STRINGS (80," ") 2840 PROCoscli("SAVE "+p$+" Ø+"+STRS" (2 
1360 PRINTTAB(0,20)STRINGS (80," ") 56*recn*recs)) 
1380 ENDPROC 2860 rec=1:F=OPENUP (p$) : PTR#F=Ø: PRINT#F 
1400 : ,rec,recn,recs,f 
1500 DEF PROCcommand 2880 FOR I=1 TO £:PRINT#F,field$ (I) ,wid 
1520 LOCAL command$,pm$ th (I) :NEXT I:CLOSE#F 


œ 
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2900 PROCwindow]:CLS:PROCwindow2 

2920 PRINT"File ";p$;" created" 

2940 ENDPROC 

2960 : 

3200 DEF PROCopen (p$) : LOCAL I 

3220 IF p$="" THEN PRINT"No file given" 
: ENDPROC 

3240 IF open$ THEN PROCclose 

3260 F$=p$:F=OPENUP (FS) 

3280 IF F=Ø THEN PRINT"No such file":EN 
DPROC ELSE open$-TRUE 

3300 PTR#F=0: INPUT#F,rec,recn,recs,f 
3320 FOR I=] TO f: INPUT&F, fieldS (I) ,wid 
th% (I) : NEXT I 

3330 IF £>8 THEN L=] ELSE L=2 

3340 PROCheader:ENDPROC 

3360 : 

3600 DEF PROCadd (p$) : LOCAL I 

362Ø IF NOT open% THEN PRINT"No file op 
en": ENDPROC 

3640 PROCwindowl : PROCrecord 

3660 PROCinv (1) : PRINTTAB (64,0) "Record: 
"; SPC (4-LEN (STR$ (rec) ) ) ; rec: PROCinv (Ø) 
3680 FOR I=1 TO f:record$ (I)=FNinput (13 
,L* (I-1)+1,width% (I) ,".") :NEXT I 

3700 PROCwindow2:1F FNask("Confirm (AN 
): ")<3 THEN PTR#F=256+recs* (rec-1) :FOR 
I=1 TO £:PRINT#F, records (I) :NEXT I:rec-r 
ec+1 : PTR#F=Ø: PRINT#F, rec 

3720 PROCwindowl : PROCinv (1) : PRINTTAB (47 
,®) SPC (4-LEN (STRS (rec-1) ) ) ; rec-1: PROCinv 
(Ø) : PROCwindow2 

3740 ENDPROC 

3760 : 

4000 DEF FNinput (x,y,w,pS) 

4020 LOCAL chS,c,p:ch$="":p=1 

4040 PRINTTAB (x,y) STRINGS (w,p$) : VDU31,x 


ry 

4060 REPEAT: c=GET 

4080 IF c=127 THEN PROCd ELSE PROCa 
4100 UNTIL c=13 

4120 ch$=ch$+STRINGS (w-LEN (ch$) ,p$) 
4140 -ch$ 

4160 : 

4180 DEF PROCd 

4200 IF p>] THEN VDU8,ASCp$,8:ch$-LEFTS 
(ch$ ,LEN (ch$) -1) :p=p-1 

4220 ENDPROC 

4240 : 

4260 DEF PROCa 

4280 IF p<=w AND c<>13 THEN ch$=ch$+CHR 
$(c):VDU c:p=ptl 

4300 ENDPROC 

4320 : 

4500 DEF PROCrecord:LOCAL I 

4520 FOR I=1 TO f 

4540 PRINTTAB (0,L.* (I-1)+1) field$ (1) TAB ( 
13) STRINGS (width (I) ,".") 

4560 NEXT I:ENDPROC 

4580 : 
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4800 DEF PROCdisplay (p$) 
4820 LOCAL G,I,start,end,n:n-VAL (p$) 
4840 IF NOT open$ THEN PRINT"No file op 
en": ENDPROC 

4860 IF rec<2 THEN PRINT"No records in 
file":ENDPROC 

4880 IF n<Ø OR n>rec-1l THEN PRINT"No su 
ch record":ENDPROC 

4900 PROCwindowl:PROCrecord 

4920 IF n THEN start-n:end-n ELSE start 
=1:end=rec-1 

4949 FOR I=start TO end 

4960 PROCdisplayl (I) 

4980 IF I<end THEN G-GET 

5000 NEXT I:PROCwindow2 

5020 ENDPROC 

5040 : 

5200 DEF PROCdisplay] (n) 

5220 LOCAL I 

5240 PROCinv (1) : PRINTTAB (64 , 0) "Record: 
";SPC (4-LEN (STRS (n) )) ;n: PROCinv (Ø) 

5260 PTR#F=256+recs* (n-1) 

5280 FOR I=1 TO f:INPUT4F,record$ (1) : PR 
INTTAB (13,L* (I-1)+1) record$ (I):NEXT I 

5300 ENDPROC 

53205 

5500 DEF PROCdelete (pŠ) 

5520 LOCAL A,I,n:n=VAL (pŠ) 

5540 IF NOT open$ THEN PRINT"No file op 
en": ENDPROC 

5560 IF rec<2 THEN PRINT"No records in 
file":ENDPROC 

5580 IF n<l OR n»rec-l THEN PRINT"No su 
ch record":ENDPROC 

5600 PROCwindowl:PROCrecord 

5620 PROCdisplayl (n) : PROCwindow2 

5640 A-FNask("Delete (Y/N): ") 

5660 IF A<3 THEN PTR#F=256+recs* (n-1):F 
OR I=] TO f:PRINT4F,STRINGS (width$ (I) ,". 
") «NEXT I 

568Ø ENDPROC 

5700 : 

6000 DEF PROCclose:LOCAL I,J,K 

6020 IF NOT open’ THEN PRINT"No file op 
en": ENDPROC 

6030 IF rec-1 THEN 6169 

6040 PRINT"Please wait - closing file " 
SES 

6060 J=1:FOR I-1 TO rec-l 

6080 PTR#F=256+recs* (1-1) 

6100 FOR K=1 TO f:INPUT£4F,record$ (K) : NE 
XT K 

6120 IF ASC(record$ (1))<>46 THEN J-J*l: 
PTR#F=256+recs* (J-2) :FOR K=1 TO f:PRINT4 
F,record$ (K) :NEXT K 

6140 NEXT I: rec=J:PTR#F=0: PRINT#F, rec 

6160 PRINT"File closed - ";rec-l;" reco 
rds in use" 

6180 CLOSE#F: open3=FALSE 

6200 ENDPROC 
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COMPRESSING 
SCREEN DISPLAYS 


Screen displays use up much 
valuable storage space and, for 
cassette users, can be very slow 
to save and load. Geoff Bains and 
Alan Webster show how 
compressing your pictures can 
greatly improve matters. 


A major problem with the BBC micro is 
that its graphics displays take up an 
awful lot of memory. Cassette users know 
well the hours needed for a 2ØK screen to 
load from tape. Disc users also suffer - 
you can only fit four such screens onto a 
4Ø track disc. This is where this pair of 
programs will prove useful. The first 
program will compress a 2ØK screen to 
around 6K, the exact figure depending on 
the picture itself. The second program 
consists of a procedure to add to your own 
program that loads in the Compressed 
screen and expands it back to full size. 


COMPRESSION 

The compression technique relies on 
the fact that most pictures have large 
areas of the same colour. If an area of 
the screen is composed of the same bytes 
of data we can more efficiently store it 
as the byte and the number of repetitions 
of these bytes. This program extends this 
idea to account for stippled or striped 
areas and stores the screen in the form: 

Bytel Byte2 Number of byte pairs 


The compressed data is stored 
initially in RAM. This is then saved with 
a reload address calculated so that the 
data loads into RAM at the bottom of the 
screen. This avoids the compressed data 
occupying any memory additional to that 
required by the expanded picture (20K). 


Using the program is simple enough. 
Just answer the prompts for the name of 
the uncompressed screen and the compressed 
data and the program does all the rest. 
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1Ø REM PROGRAM SCREEN COMPRESSION 
20 REM VERSION B0.1 
30 REM AUTHOR GEOFF BAINS 
40 REM BEEBUG NOV 1985 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
100 MODE 1 
11Ø INPUT "Filename of screen"''"to co 
mpress ",N$ 
126 INPUT ''"Filename for compressed"' 
screen ",C$ 
130 VDU28,1,25,19,20 
140 *OPT 1,0 
150 AS="LOAD "+N$+" 3000":PROCos 
160 store$-&2000 
170 HIMEM=store% 
180 B1$-2&3000:B2$-2?&3001 :N$-1 
190 FOR I$-&3002 TO &8000 STEP2 
200 D1$-?(I$):D2$-? (I %+1) 
210 ?(I$)-NOT D1$:?(I$*1)-NOT D2% 
220 IF D1$<>B1% OR D2%<>B2% OR N$-255 
THEN ?(store$)-Bl$:?(store$*1)-B2$:? (sto 
re%+2)=N%:N3=Ø:B1%=D1%3:B2%=D2%:store%=st 
ore%+3 
230 N3=N%+1 
24Ø length%=store%-HIMEM 
250 NEXT I$ 
260 *OPT 
270 AS-"SAVE "+C$+" "+STRŠ HIMEM+" ++ 
STR$” (length%)+" 0000 "+STRS” (&8ØØØ-leng 
th%) : PROCos 
288 END 
290 DEFPROCOS: $&900=AS: X3=0 2 Y3=9 
300 CALL&FFF7:ENDPROC 


DECOMPRESSION 
Expanding the compressed data back 
into its full picture form is a little 


more complicated. The picture is loaded 
into position at the end of screen memory 
by the machine code equivalent of *LOAD. 
The start address of the data is found 
(as a result of the load operation) and 
the decoding proceeds as a simple loop, 
poking the expanded data directly into 
Screen memory. 


To use the expansion routine in your 
own programs, simply add the procedure, 
PROCscreenload onto the end of your 
program and call it with the filename of 
the compressed data (the name you chose in 
the first program to store the data) as 
the parameter (see the example in lines 
lines 100-120). For example: you could use 
this procedure in the Jigsaw program 
(Vol.4 No.3) to save on time/space to 
store the puzzle picture. Compress your 
picture and replace line 1580 of Jigsaw 
with PROCscreenload(F$) and append the 
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procedure listed bere onto the end of the 
program. You will also have to change the 
address used for the code (line 10010, 
below) to either &ØAØØ for a disc system 
or &ØDØØ for a cassette system. 


DEGREE OF COMPRESSION 

The program will compress most mode 1 
Screens to around 6K. It will operate on 
mode Ø and mode 2 screens too, simply by 
altering the mode in line 


100 of each of the 
routines, though as it is 
designed for mode 1 
screens, the degree of 


compression will not be as 
great in these cases. 10K 
modes are not accomodated 
(though they could be) as 
the savings are less. 


If the compressed data 
is too large (from a very 
detailed picture, for example) it will be 
overwritten by the reconstituted picture 
as it is decoded. This is not normally a 
problem as such large data is not really 
worth using in a compressed form. If a 
screen is very detailed, with nearly every 
pixel pair different from its neighbour, 
the compressed data can get to be bigger 
than the original screen! 


10 REM PROGRAM SCREEN DECOMPRESSION 
20 REM VERSION B0.1 

30 REM AUTHOR ALAN WEBSTER 

40 REM BEEBUG NOV 1985 

50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 

MODE 1 

PROCscreenload ("filename") 

END 


DEF PROCscreenload (NS) 
name$-8&0900 

10020 FOR pass=ØTO2STEP2:P%=name%+12 
[OPTpass 

.load 

LDA#&FF:LDY#6:STA pblock,Y 
1ØØ6Ø LDX #pblock MOD 256 

LDY #pblock DIV 256 

LDA #255:JSR &FFDD 

JSR subt2:RTS 

«pblock 

10110 BRK:BRK 

JMPØ: JMPØ: JMPØ: JMPØ: JMPÜ: BRK 
.Subt2:LDA &3BE:STA&8Ø 

LDA &3BF:STA&81:SEC:LDA &80 
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10150 
10160 : 


10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 


SBC#3:STA &80:LDA &81:SBC #Ø:STA &81 


. decode 

LDA #Ø:STA&84:LDA#&3Ø : STA&85 
.loop 

JSR inc2 

CLC:LDA &81:CMP 4&80:BEQend 
LDY#Ø 

LDA (&8Ø) ,Y: STA &8E 
INY:LDA(&80),Y:STA &8F 
INY:LDA (&8@) , Y: TAX 

. loop2 

LDY#Ø 

LDA&8E: STA (&84) ,Y 
INY:LDA&8F:STA(&84),Y 

JSR inc 

DEX:CPX40:BNE loop2 

JMP loop 

.end 

RTS 

.inc 

CLC: LDA&84 : ADC#2: STA&84 
LDA&85 :ADC#9:STA&85:RTS 
.inc2 
CLC:LDA&80 : ADC33 : STA&80 
LDA&81 :ADC4Ø:STA&81 

RTS 

] : NEXT pass 
?pblock=name%:pblock?1|=name%DIV256 
VDU 12,28,1,10,19,2 


Sname3=N$ 

CALL load 

VDU26 

ENDPROC 53) 
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This segment 


program 1 Ius 


compactor is just the utility for 
all Wordwise Plus enthusiasts. 
Leila Burrell-Davies explains 
what it's all about. 


Like Stephen Ibbs in the June 1985 
edition of BEEBUG (Vol.4 No.2), I am an 
enthusiastic user of Wordwise Plus segment 
programs. Like him I also have problems 
with fitting into memory all the segments 
that I want and having any memory left for 
text. 


The solution I have adopted is to 
write my segment programs with plenty of 
Spaces and REMs and explanatory Label 
names and then, when they are thoroughly 
tested, to compress them into working 
versions which are as compact as possible. 
I keep the original (full) version in file 
F.segname and the working version in file 
*.segname. When I want to modify the 
program, I go back to the full version, 
which is much more readable and easy to 
understand. 


Needless to say, the compacting is 
done with a segment program! It compacts 
the program in the currently selected area 
of memory by replacing all the keywords 
with their minimum abbreviations, deleting 


all spaces which are not in quotes, 
removing all REMs (except on the first 
line), removing all blank lines and 


DEFAULTS»def. 
DISPLAY»di. 
ENDPROC»e. 
MARKERS>marker. 


VARFREE>V. 
BOTTOM>b. 
CLOSE@>close@ 
CURSOR?C. 
DELETE»de. 
DOLINE»dol. 
DOTHIS»d. 
MARKED»m. 
OPENIN>op. 


OPENOUT>openo. 
PREVIEW>pre. 
RECOUNT? rec. 
REPLACE>repl. 
SEGMENT>S. 
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replacing possibly long 
labels with short numeric ones. 


explanatory 


Because of this method of dealing with 
labels you should avoid using any purely 
numeric labels if your Wordwise Plus 
program is to be compacted. The BEEBUGSOFT 
compactor in Wordease avoids this problem 
as well as offering a  decompaction 
facility as well. 


The keywords and their abbreviations 
are stored in a file W.ABBREVS in the 
format: 

KEYWORD>abbrev. 
where the symbol '>' means 'press the Tab 


key'. The keywords are ordered by length, 
longest first. This is to ensure, for 
instance, that REPEAT is replaced by r. 


before the AT which it 
replaced by "ai, 


contains is 
You will need to enter 


this as a Wordwise Plus segment and save 
as a separate file. 

The hash character (#), has to be 
replaced temporarily by a character which 


does not occur in the text; @ is used 
here. This is because # acts as a wild 
card in search strings, so that a search 
for CLOSE# will find CLOSE followed by any 
character. The compactor checks that the 
'Q' character does not appear in the text 
to be compacted. If it does you are 
requested to replace it temporarily while 
compaction takes place. 


The program has to do quite a lot of 
work and is, unfortunately, rather slow. 
Because of this, it does prints dots on 
the screen while it is running to show the 
user that something is happening. 


The program will work with a cassette 
system so long as the cassette player has 
motor control. It should be entered as a 
Wordwise Plus segment program and saved as 
F.WW*COMP (or similar). You can then load 
and call this program to compact any other 
program you write. As a start, you can use 
it to compact itself! 


PARAMS>par . 
REPEAT»r. 
SELECT>S. 
BGET@>b. 
BPUT@>bp. 
FALSE>fa. 
GCFS@>gcf. 
GLF$G»glf. 
OSCLI>0. 
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EOF@>eof. 
EXTG»ex. 
FILE»f. 
FIND»f. 
FKEY»fk. 


FREE»fr. 

GCK$>gck. 
GCT$>gct. 
GLKS>glk. 
GLTS>glt. 


LOAD>10. 
PAGE>p. 
PROC>pro. 
PTR@>pt. 
SAVE>sa. 
STR$>st. 
SWAP>sw. 
TEXT> te. 
THEN>t. 
TIME>time 


GOTO»g. TRUE>tr. 
LEFT>1. TYPE> 


REM "Wordwise Plus program compactor" 
REM Leila Burrell-Davis, November 1985 


REM W$ can be changed from @ if 
REM required so long as it is also 
REM altered in file VS. 


CLOSE#Ø 
DELETE MARKERS 


REM name of abbreviations file 
V$="W.ABBREVS" 


REM char which mustn't appear in text 
W$="Q" 

CURSOR TOP 

FKEY4 ,WS 

IF EOT THEN GOTO WSok 

VDU7 

CLS 

PRINT"Special character "+W$+" appears" 
PRINT"in your text. Please change it" 
PRINT"into something else temporarily." 
PRINT 

PRINT"Press any key to continue..."; 
A$-GET 

DISPLAY 

END 


.WSok 

REM open file V$ 

CLS 

PRINT"Trying to open "+V$+" file..." 
X%=OPENIN (V$) 

IF X$-0 THEN GOTO nofile 

CLS 

PRINT"Working "; 


REM now change #'s to W$'s because 
REM # is wild in replace strings 
PRINTS. 
CURSOR TOP 
REPEAT 

FKEY4, "4" 

IF EOT THEN GOTO atend 
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DELETE at 
type W$ 
«atend 
until eot 


REM make file upper case for matching 
REM except in quotes 
cursor top 
REM in quotes flag 
Q%=false 
REPEAT 
AS=gct$ 
REM if quote, toggle quote flag 
IF AS=chr$34 THEN Q%=Q% EOR &FFFF 
REM if eol, set quote flag false in 
REM case unbalanced quotes in line 
IF A$-chr$13 THEN Q%=false 
IF Q$ THEN GOTO next 
IF AS<"a" OR AS>"z"THEN GOTO next 
CURSOR LEFT 
SWAP 
PRINT","; 
«next 
UNTIL EOT 


REM now replace keywords by abbrevs. 
REPEAT 
PRINT", "; 
AS="" 
BS="" 
REM Get keyword 
REPEAT 
AS=AS+BS 
BS=gcfS#X% 
REM lenB$ will be Ø when TAB read 
REM as it has ASCII value > 127 
UNTIL LENBS=Ø 
REM Get abbreviation 
BS=g1£S#X% 
CURSOR TOP 
REPEAT 
REPLACE AS,BS 
UNTIL EOT 
UNTIL EOF#X% 
CLOSE#X$% 
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REM get rid of spaces except in quotes REPLACE "|R|R","|R" 
CURSOR TOP UNTIL EOT 
REM in quotes flag 
Q%=FALSE REM now deal with labels 
REPEAT A$-0 
AS=CCTS CURSOR TOP 
REM if quote, toggle quote flag REPEAT 
IF AS-chr$34 THEN Q%=Q% EOR &FFFF PRINT","; 
REM if eol, set quote flag false in FIND "|R." 
REM case unbalanced quotes in line IF EOT THEN GOTO nextlabel 
IF A$=chr$13 THEN Q$-FALSE CURSOR RIGHT 
IF AS<>" " THEN GOTO nextchar AS=GLTS 
IF Q$-FALSE THEN DELETE LEFT CURSOR TOP 
PRINT"."; REPEAT 
.nextchar REPLACE AS$,"."+STRSA% 
UNTIL EOT IF EOT-FALSE THEN CURSOR RIGHT 
UNTIL EOT 
REM remove rems unless on first line CURSOR TOP 
REM (first line rem will have been FIND "|R"+","+STRSAS 
REM tokenised unless in quotes and CURSOR RIGHT 
REM lowercase) A$-A$*1 
PRINT","; .nextlabel 
CURSOR TOP UNTIL EOT 
REPEAT 
FIND CHR$13-*"rem" REM now change W$'s back to #'s 
FKEY6,CHR$13 PRINT". "; 
DELETE AT CURSOR TOP 
UNTIL EOT REPEAT 
REPLACE WS, '"f" 
REM remove blank lines UNTIL EOT 
PRINT". "3 
CURSOR TOP CURSOR TOP 
REPEAT DISPLAY 
END 


Samole of compacted file 


p."Trying to open "+v$+" file..." .nofile 

X%=op. (V$) REM abbrevs. file not on current drive 

i.X%=Øt.g.5 VDU 7 

cL, VDU 14 

p."Working "; PRINT 

Aki: PRINT"File "+V$+" not found." 

PRINT 
*CAT 

fk.4,"#" PRINT 

i.eott.g.1 PRINT "Press any key ..." 

de.a. A%=GET 

ty .WS DISPLAY 

m END 

u.eot 


c.t. 


FILLING UP - Roger Burg 

Using a graphics window and the CLG command is a well known method of filling 
rectangles on the screen. However this method will only fill from the top. If you want 
to fill from the bottom of the rectangle, for a different effect, define a graphics 
window as before then use PLOT85 to draw a very large triangle that encompasses the 
whole window. 
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Writing your own 
compiler (part 1) 


David Pilling begins a new 
series in which he describes the 
steps involved in constructing a 
compiler. 


In this short series ofaarticles, I 
will describe how to design and build your 
own compiler. This will provide a 
practical introduction to those who would 
like to try their hand at compiler 
writing. In addition, an insight into the 
art of compiler construction can help you 
to write better programs by understanding 
how the computer works. The three articles 
will, stage by stage, build up to a 
complete working compiler for a useful 
subset of Basic. 


WHAT IS A COMPILER? 

Everyone who has used a micro, will be 
familiar with an interpreter. This is a 
program which takes Lines of Basic and 
executes them one at a time. A compiler on 
the other hand takes an entire program 


written in a high level language (the 
source code) and translates it into a 
program in another language (the object 
code). The classic example is the 


conversion of a Basic program to machine 
code. The usual reason for wanting to 
translate from one language to another is 
to obtain a program which is in a language 
closer to that of the processor in the 
computer and which will therefore run 
faster, often using less memory as well. 


Compilers are complicated programs and 
there is a certain amount of mythology 
attached to them, not least that they are 
very difficult to write. Certainly this 
was true thirty years ago. In the time 
since then, much effort has been put into 
finding out how to write compilers, and as 
a result, if you stick to certain 
principles, it is fairly simple. 


Compilers are often assumed to give a 
huge increase in run-time speed over using 
an interpreter. This is not universally 
true. For instance, it takes a finite 
amount of time for a 6502 to multiply two 
numbers together. No compiler can improve 
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on this. What the compiler can do, is 
remove the time the interpreter takes to 
find the locations of the numbers in 


memory and the destination of the result. 
In addition, compiled programs will often 
run faster just because the code is 
translated once and not repeatedly 
re-interpreted. 


Although many books have been written 
on the theory of compiler writing, the 
object here is to be very practical. As a 
result, the implementation of a Basic 
compiler (ABC) for the subset of BBC Basic 
shown in figure one will be described, 
with the first part of the program this 
month. The only point of interest about 
this subset, is that the WHILE WEND 
construct and PEEK and POKE have been 
included to show how easy it is to add 
features to a language. 


FIRST PRINCIPLES 


To begin then, the fundamental idea of 
a compiler is to translate from one 
language to another. The process is 
Sketched out in figure two. The first 
parameter which allows the comparison of 
IFTHEN ELSE PRINT SIN INKEY 
WHILE WEND INPUT COS END 
REPEAT UNTIL TAB(X,Y) SQR PEEK 
FOR TO STEP NEXT vou RND(X) POKE 
DEFPROC PROC ENDPROC MOVE PI += 
GOSUB RETURN DRAW TRUE 
GOTO SOUND FALSE () 


<> >=, <=, <> 


All variables are reals. No variable is allowed after NEXT. The 
delimiters DEFPROC ENDPROC, FOR NEXT, REPEAT UNTIL, WHILE 
WEND mustappearin pairs. Procedures may have parameters and 
be called recursively. 


Figure One: Basic Subset 


Figure Two: Compilation 


different compilers, is how many passes 
have to be made through the program. One 
speaks of a one pass, two pass etc. 
compiler. Obviously, there are practicali- 
ties involved here. If the source program 
is in a file on tape then a compiler that 
makes as few passes as possible is needed. 
However, the structure of the language to 
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be compiled determines how easy it is to 
compile programs in a single vass. 


It is possible to compile a language 
which has been designed appropriately, by 
scanning programs from left to right 
without ever going backwards. For some 
languages such 'backtracking' is essential 
and leads to great complications. By 
keeping to the single left right scan, 
things are made much easier. It is no 
surprise that BBC Basic can be translated 
in just this way. 


Given that one is setting out to 
compile Basic or another high level 
language, it may seem a trivial question 
as to what it is to be translated into. 
Most people would say machine code. The 
problem is that a processor like the 6502 
lacks instructions to do almost everything 
that one would like. There are no 
instructions for handling floating point 
variables, for example. This means that 
there must be a large group of subroutines 
to provide all the facilities compiled 
programs need. This is referred to as a 
run-time support system. If programs are 
compiled directly to machine code, then 
for the most part the object code will 
consist of calls to these subroutines. 
Such a machine code compiler may suffer as 
although the programs it produces are fast 
they tend often to be very larqe, because 
of the run-time support system. 


The compiler described here, produces 
6502 machine code and mostly uses the 
mathematical routines in the Basic ROM for 
its run time system. 


COMPILER STRUCTURE 

The actual compilation process can be 
divided into a number of phases. The 
classic design of compiler has three: 
lexical analysis, syntax analysis and code 
generation. Figure three shows this 
structure. Sometimes, these three 
processes are carried out by completely 
separate programs and the output of the 
syntax and lexical analysis parts stored 
in an intermediate form. Our compiler will 
cope with all three together. 


Lexical analysis takes the source 
code, and splits it up into the smallest 
significant items commonly called tokens 
or, appropriately, atoms. The idea is to 
protect the syntax analysis part of the 
compiler from the unnecessary complexity 
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of how programs are stored. To give an 
example: the syntax analyser is only 
interested in whether the next item from 
the source program is a number, not in 
constructing it from a string of digits. 


Syntax analysis derives the meaning of 
the program to be compiled and finally, 
acting on the results of the syntax 
analysis, the code generation phase 
produces the object code. The remaining 
item in figure three is the 'symbol 


table'. This is a table which is accessed 
by all stages of the compiler. It contains 
all the objects 


that the compiler knows 


Figure Three: Compiler Structure 


about, for example names of variables and 
their memory locations. 


LEXICAL ANALYSER 


Logically therefore, 
of the compiler. should consist of the 
lexical analyser and symbol tables. What 
is needed is a way of holding a piece of 
source code and then a procedure which, 
each time it is called, returns the next 
token from it. In addition, every time the 
procedure finds a new object, it should 
enter it in the symbol table. 


the first piece 


The tokens which can be found in the 
Source text, comprise keywords, numerical 
constants (numbers), string constants, 
operators, spaces and identifiers. An 
identifier is like the name of a variable 
or procedure (an alphanumeric sequence 
started by a letter). Such identifiers are 
entered in the symbol table. The lexical 
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analyser, should strip off spaces and 
assemble composite operators like <> into 
single tokens. This section of the 
compiler is listed this month and appears 
on the magazine cassette/disc. The other 
parts of the compiler will appear 
similarly in the following two issues. 


PROGRAM NOTES FOR THE LEXICAL ANALYSER 
The program to be compiled is entered 
between lines 10 and 1000 and terminated 
with a STOP statement. The source code 
must not contain procedures with the same 
names as those in the compiler. Lines 1000 
to 1300 form the main compiler program. 
PROCBl and PROCB2 set up the locations of 
the routines in ROM which the compiler 
uses depending on whether you have Basic I 
or II. Only the procedure for your machine 
need be typed in. PROCSETUP is, naturally, 
concerned with setting up the values of 
various variables and dimensioning arrays. 


The lexical analyser is PROCLX. It has 
the following specification. Every time 
PROCLX is called, it sets the variable T$ 
to the value of the next token. If the 
token is a number, the variable N is given 
its value. If the token is a string or an 
identifier then SŠ is set to it. Finally, 
if a line number is found N$ is given its 
value (a line number is what appears after 
a GOTO or GOSUB statement). In addition, 
SN$ is set to the number of any object in 
the symbol table. 


As well as the straightforward left 
right scan of the program at a token 
level, we also impose the condition that 
the lexical analyser should scan the 
characters that compose the source code 
program in a single left right scan, and 
that the variable A$ always contains the 
next character to be read. Thus the 
lexical analyser has a single token single 
character look-ahead. 


Anyone familiar with the way that BBC 
Basic programs are stored, should have 
little difficulty in fulfilling the above 
specification. Consider the version of 
PROCLX in the listing. This always reads 
characters by calling FNCH. The task of 
implementing a lexical analyser, is made 
rather simpler by the fact that all Basic 
keywords are represented in programs by 
tokens (a subset of the tokens above) in 
the range 128 to 255. So part of the 
lexical analysis job has been done. This 
means that keywords can give T% the value 
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of their usual token. For other things, 
token values can be invented. This is done 
in lines 1730 and 1740. For example the 
combinations <=, >= and <> have tokens 
1,2, and 3 and the new keywords WHILE and 
WEND the tokens 8 and 9. 


On entering PROCLX, the first thing 
that is done is to look at the current 
value of T%. If this is equal to an end of 
line character (line 1950), PROCNL is 
called. This procedure sorts out the 
problem of getting the next line from the 
source text. If T% is equal to the 
end-of-program token (i.e. STOP), PROCLX 
does nothing and ends. Next, A% is tested 
and characters are read until something 
which is not a space is met. 


At line 1970, FNAL is used to test if 
A$ is an alphabetical character. If it is, 
then it represents the beginning of an 
identifier. PROCIG is used to assemble it 


into S$. Having done this, the program 
looks in line 1990 to see if the 
identifier is one of the new keywords. If 


it is, T$ is given the appropriate value. 


Otherwise, the identifier is a variable 
name and PROCS is called. Obviously one 
could put a big table of new keywords at 


this point. Picking out the new keywords 
here does mean that they must be 
terminated with a space if they are not to 
be confused with variables. 


PROCS handles the symbol table. The 
symbol table consists of the arrays st(), 
Sa() and stp(). These hold the name of the 
object, its address and its type. For 
variables, the address is the actual 
location where the variable is stored. For 
procedures, it would be the address of the 
start of the procedure. It is necessary to 
keep track of the type of an object so 
that, for instance, procedures can be 
distinguished from variables of the same 
name. If a variable is entered into the 
symbol table, then an address in memory is 
allocated to it in line 2460. 


If A$ is not a letter, PROCLX branches 
to line 2010 where, if A% is the PROC 
token, the procedure name is assembled and 
entered in the symbol table. Otherwise, 
control branches to line 2040 where four 
more types of token are sorted out. If A$ 
is a number, PROCDNG takes care of 
assigning it to N. A double quote value of 


A$ calls PROCSG into action to geta 
constant string. If A$ is the BBC Basic 
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Line number token, PROCLG retrieves the 
line number. Finally, if A% is in none of 
the above categories, PROCTG is called. 
This checks to see if A% is part of one of 
the <, > special sequences and also strips 
off any unnecessary colons. T% is given 
the appropriate value. 


There are a few complications to note 
concerning the handling of line numbers. 
When a line number is found after a GOTO, 
it is put as a string into the symbol 
table. This is logical, since in the 
object code, a line number corresponds to 
an address. Secondly, there is another 
table, consisting of the arrays lino() and 
lina(). These hold line numbers and 
corresponding object code addresses. Every 
time PROCNL is called, it enters the new 
line number in lino() and the value of the 
location at which code is being written in 
lina(). 


As the source code is scanned, it is 
displayed on the screen. This is done by 
making use of PROCA which prints the 
character value of A% and then gives AS 
the value of the next character using 
FNCH. A call to a ROM routine makes sure 
that keyword tokens are printed properly. 


The processes described above are more 
general than they may seem. For example, 
all conventional languages have very 
similar specifications for  identifiers. 
Therefore, all  compilers for these 
languages contain a section like that in 
the listing for handling identifiers. The 
same point applies to numerical constants 
and so on. The lexical analyser, is 
perhaps the simplest part of any compiler, 
and as such is not greatly interesting. 
However, it provides one of the major 
bottlenecks as regards the speed at which 
programs are compiled and efficient design 
is essential for a fast compiler. 


The discipline of always reading 
characters via FNCH confers the great 
advantage that it is also possible to 
compile programs from disc or tape thus 
making more memory available for the 
object code. To do this the following 
lines should be added: 

1151 INPUT"FILE TO COMPILE "S$ 

1152 CH=OPENINSS 

1171 CLOSE#CH 

1795 Z%=Ø 

1910 DEFFNCH:Z%=Z%+1]:=BGET#CH 


a aa ÉÉUEUUUUOCK MENU Ie e EAE 
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Disc users will probably find this 
modification very useful; tape users will 
need patience to use it. Programs must 
Still be terminated with a STOP statement. 


In part two, I will turn to the 
subject of syntax analysis and present the 
next section of the compiler. 


18 GOTO1ØØØ 
1000 REM ============================ 
1910 REM A BASIC COMPILER 
1020 REM VERSION B1.1 
1030 REM D. J. Pilling 
1040 REM BEEBUG November 1985 
1050 REM Program subject to copyright 
1060 REM w========x===g=mw===zm==msa=smaha 
1070 REM: 
1080 REM Section #1 
1090 REM Lexical Analysis. 
11ØØ MODE7 
1118 ns=18:n1=25 
1120 himem=&5800 
1130 msize=3100 
1140 page=himem-msize:HIMEM=page 
1150 PROCSETUP:CLS 
1160 T%=FNCH:A%=FNCH:PROCLX 
1170 PROCprog:top=P% 
1180 PROCFIX 
1190 PROCSI 
1200 PRINT''"page = ";page 
1210 PRINT"himem = ";himem 
1220 PRINT"msize = ";msize 
1230 PRINT"variables ";himem-vmem-5 
1240 PRINT"object code ";top-GO 
1250 PRINT"source code ";Z$-W$ 
1260 PRINT''"execute code (Y/N)? "; 
1270 G%=GET:MODE 7 
1280 IF G$-ASC"Y" THEN CALL GO 
1290 END 


1310 DEFENL (B1%,B2%,B3%) 
1320 B33=B33*256+B23-64040 
1330 IFB13MOD&1Ø=Ø B3%=B33+1 6384 AM 


1340 IFBl$-&44 B1$-64 ELSEIFBl$-&54 Bl% 
=Ø ELSEIFB1%=&64 B13=192 ELSEIFB1%=&74 B 


1350 =B1%+B3% 

1360 : 

1370 DEFPROCBI 

1380 TK-&B53A:sqx-&A7B7:f2i-&A3F2 

1390 A2f=&A2DE:f2s=&9EDØ:neg=&ADAØ 
1400 1dz=&A691 : sub=&A50B:mul=&A661 
1410 div=&A6B8:add=&A5ØE: 1df=&A3A6 
1420 stf=&A37E:cpf=8&9A37:sig=&A1CB 
1430 six=&A997:cox=&A98C: pi x=&ABFØ 
1440 i2f=&A2AF:rnx=&AF53 

1450 asc2=&AC5A: ins=&BC17 
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1460 ENDPROC 

1470 DEFPROCB2 

1480 TK=&B50E: sqx=&A7B7: £2i=&A3E4 

1499 A2f-&A2ED:f2s-&9EDF:neg-&AD7E 
1500 1dz-&A686:sub-&A4FD:mul-&A656 
1510 div=&A6AD:add=&A5ØØ: ldf-&A3B5 
1520 stf-&A38D:cpf-&9A5F:sig-&AlDA 
1530 six-&A99B:cox-8A990:pix-&ABCB 
1540 i2f-&A2BE:rnx-&AF24 

1550 asc2-&AC34: ins-&BBFC 

1560 ENDPROC 

1565 : 

1570 DEFPROCSETUP 

1580 IF?&8015-50 PROCB2 ELSEPROCBI 
1590 PROCruntime 

1600 DIM st$ (ns) ,sa (ns) ,stp (ns) 

1610 DIM lino(nl),lina(nl) 

1620 SS=STRINGS (40," "):S$="";NL%=0 
1630 for=&E3:to=&B8:step=&88:next=&ED 
1640 vdu-&EF:print-&Fl:proc-&F2:def-&DD 
1650 endproc-&El:rep-&F5:unt-&FD 

1660 goto-&E5:end-&E0: inkey-&A6:if-&E7 
1670 else=&8B: lino=&8D: then=88C: peek=&A 
1680 eq-&3D:gt-&3E:lt-&3C:cls-&DB 


1690 1b-&28:rb-&29:tr-&B9:f1-&A3:poke-& B 


1700 plus-&2B:minus-&2D:slash-&2F 

1710 times-&2A:squote-&27: tab=&8A 

1720 dquote-&22:comma-&2C: scol-&3B 

1730 col=&3A:spc=32: eoln=&D: eop=&FA 

1740 geq-1:1eq-2:neq-3:id-4:1b1-5 

1750 const=6:string=7:whi=8:wnd=9 

1760 sound-8D4:gosub-&E4: return-&F8 

1770 inp=&E8:sin=&B5:cos=&9B:rnd=&B3 

1780 draw-&DF:move-&EC:sqr-&B6:pi-&AF 

1790 Z$-PAGE-*?(PAGE-*3):SN$-0: jm=Ø 

1800 X1$-0:X2$-0:Y1$-0:Y2$-0:W$-2$ 

1810 vmem-himem-5 

1820 ENDPROC 

1830 DEFPROCS1 

1840 X2$-POS:Y2$-VPOS 

1858 VbU28,0,10,39,0,31,X1$,Y1$ 

1860 ENDPROC 

1870 DEFPROCS2 

1889 Xl$-POS:Yl$-VPOS 

1898 vDU28,0,24,39,12,31,X2$,Y2$ 

1900 ENDPROC 

1918 DEFFNCH:Z%=Z%+1:=Z%?-1 

1920 DEFPROCA:PROCS!:CALL TK:PROCS2:A$- 
FNCH: ENDPROC 

1930 DEFPROCLX 

1949 IFT$-eop:ENDPROC 

1950 IFT$-eoln PROCNL 

1960 IFA%=spc:REPEAT PROCA:UNTILA%<>spc 

1970 IFNOTENAL (A$) GOTO2010 

1980 PROCIG 

1990 IFSS="WHILE"T%=whi ELSEIFS$="WEND" 
T$-wnd ELSEIFS$="PEEK"T%=peek ELSEIFSS=" 
POKE"T%=poke ELSET%=id:PROCS 

2000 ENDPROC 

2010 IFA%<>proc GOTO2040 
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2020 T%=A%:PROCA:IFNOTFNAL (A%) T3=Ø:END 
PROC 

2030 PROCIG:PROCS:ENDPROC 

2040 IF FNDN(A%) PROCDNG ELSEIF A%=dquo 
te PROCSG ELSEIF A%=lino PROCLG ELSEPROC 
TG 

2050 ENDPROC 

2060 DEFFNAL (A%) : = (A3>64ANDA3<91 JOR (A%> 
96ANDA%<123) 

2070 DEFFNDN (Aĉ) : = (A3>47ANDA%<58) 

2080 DEFPROCLG 

2090 N%=FNL (FNCH,FNCH, FNCH) 

2100 T$-lino:A$-FNCH:SS$-STRSN$ 

2110 PROCS: PROCS1: PRINT;N$; : PROCS2 

2120 ENDPROC 

2130 DEFPROCIG 

2140 S$="":REPEAT: S$=5$+CHRSA%: PROCA : UN 
TIL NOT (FNDN (A%) ORFNAL (A%) ) 

2150 ENDPROC 

2160 DEFPROCDNG 

2170 SS$="": PROCDNGX 

2180 IFAS=ASC"."S$=5$+".":PROCA: IFFNDN ( 
A%) PROCDNGX 

2190 IFA%<>ASC"E"GOTO2220 

2200 SS=S$+"E": PROCA: IFA$-ASC"-"PROCA:S 
$-gg4"-" 

2210 IFFNDN (A$)PROCDNGX 

2220 T%=const:N=VALS$ 

2230 ENDPROC 

2240 DEFPROCDNGX: REPEAT: S$=SS$+CHRSA%: PR 
OCA:UNTIL NOTENDN (A$) : ENDPROC 

2250 DEFPROCSG:S$="": PROCA 

2260 REPEAT: S$=S$+CHRSA%: PROCS1 : VDUA%: P 
ROCS2:A%=FNCH: UNTIL A$-dquote ORA$-eoln: 
IFA$-eoln PROCERR ELSE PROCA 

2270 IFA%=dquote GOTO2260 

2280 T$-string:ENDPROC 

2290 DEFPROCTG 

2300 T$-A$:PROCA 

2310 IFT$-gt ANDA$-eq T$-geq:PROCA 

2320 IFT$=1t ANDA%=eq T%=leq:PROCA 

2330 IFT$-1t ANDA$-gt T$-neq:PROCA 

2340 IFT$-col ANDA$-col REPEATPROCA:UNT 
IL (A$<>col) AND (A%<>spc) 

2350 IFT%=col ANDA%=eoln:T%=A%:PROCA 

2360 ENDPROC 

2378 DEFPROCNL 

2380 LI%=A%*256+FNCH:LL%=FNCH 

2398 lino (NL%)=LI%:lina(NL%)=P% 

2400 NL%=NL%+1:PROCS1 

2410 PRINT';LI$; TAB(4);:A$-32 

2420 PROCS2:ENDPROC 

2430 DEFPROCS 

2440 SN$--l:REPEAT SN%=SN%+1 

2450 UNTIL (st$(SN$)-S$ AND stp(SN%)=T% 
) OR st$ (SN$)-"" 

2460 IFst$ (SN$)-"" stS (SN%)=SS:NS3=NS 3+ 
l:stp(SN$)-T$:IFT$-id sa (SN$)=vmem: vmem= 
vmem-5 
2470 ENDPROC =] 
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ROM Utilities 


Judging by the number of new 
releases, there is still a healthy 
market for ROM based utilities. 
Geoff Bains and Alan Webster 
have been looking at some of 
the latest on offer. 


Product : Transferom 

Supplier : Watford Electronics 
250 High Street, 
Watford WD1 2AN. 
0923-37774 

Price : £25.30 

Reviewer : Geoff Bains 

Product : Advanced Disc Toolkit 


Supplier : Advanced Computer Products 
6 Ava House, High Street, 


Chobham, Surrey. 
Telephone 0276-76545 

Price : £34.50 

Reviewer : Alan Webster 

Product : Replay 

Supplier : Vine Micros 
Marshborough, 
Sandwich, CT13 0PG 
0304-812276 

Price : £35.00 

Reviewer : Geoff Bains 

Product : NLQ Designer 

Supplier : Watford Electronics 
250 High Street, 
Watford WD1 2AN. 
0923-37774 

Price : £28.75 

Reviewer : Geoff Bains 

Product : ROMAS 

Supplier : Watford Electronics 
250 High Street, Watford. 
Telephone 0923-37774 

Price : £51.25 


Reviewer : Alan Webster 


TRANSFEROM from Watford 

Transferom is Watford's answer to Vine 
Micros' TDROM (see the review in BEEBUG 
Vol.4 No.l). Like that ROM, Transferom 
will put most of your tape programs 
conveniently onto disc. 
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TRANSFEROM 


Run @ program from disc. 


TRANSFEROM utilities. 
Create a new slave disc. 


Change TRANSFEROM drive. 


Like the TDROM, it is not capable of 
transferring every tape program around. 
However, it does contain a few extras over 
and above TDROM. Files of any length can 
be built up. Even the longest adventure 
game can be accommodated. If there is no 
room left on one disc then you can save 
the rest onto another; Transferom looks 
after all the details. Another nice 
feature of this ROM is that you can change 
the name assigned to a game file on disc 
after it is created. 


The whole package is menu driven and 
simple to use. As a tape-to-disc transfer 
utility Transferom scores at about the 
same level as TDROM, maybe a little 
higher. However, with items such as Replay 
(see below) around, for not much more, it 
is somewhat overshadowed. 


ADVANCED DISC TOOLKIT from ACP 


Advanced Computer Products (ACP) have 
been quietly making a name for themselves 
in the Electron market with a number of 
quality products including ROM software 
and RAM and ROM adaptors. Now they are 
branching into the BBC field with a second 
processor, DFS, ADFS and Electron 
compatible Disc Toolkit. 


The toolkit adds over 20 new 'disc' 
commands to your Beeb or Electron, 
although ACP have fallen into the trap of 
filling surplus ROM space with a 
miscellany of general command functions. 
This is regrettable when you consider the 
Many other disc commands which users might 
have preferred. As Beeb owners will see 
from the table, most of these new commands 
are similar to those in the Acorn or 
Watford DFS, and Computer Concepts' Disc 
Doctor. Electron owners who have not 
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+ — ac SET 


BACKUP 
BFIND 
BUILD 
CATALL 
DCOMP 
DEX 
DFIND 
DIRALL 
DUMP 
ENVELOPE 
FCOMP 
FCOPY 
FORM 
FREE 
FSN 
KEYL 
LIST 


MAP 
MDUMP 
MENU 
MEX 
MFIND 
MLOAD 
MOVE 
MRUN 
ROMS 
SECTORS 
SETADR 
SPT 
SWAP 
TYPE 
UNPLUG 


benefitted from the above products, will 


find more to interest them. 


Some of the better Commandes contained 
within the ROM are DCOMP which compares 
two discs and reports on any differences, 
FCOMP which is a verify command to compare 
two files, FCOPY to create a renamed copy 
of a file, and XFER to transfer a program 
between two filing systems. 


For a disc toolkit such functions as 
an envelope lister, ROM lister, Basic 
program string search, function key 
lister, and memory dump seem out of place. 


Overall, though, this is a very handy 
utility, combining all the best features 
of the DFS's and disc toolkits on the BBC 
micro, and at £34.5Ø for a 16k EPROM with 
a host of useful commands represents very 
good value for money. 


REPLAY from Vine Micros 

Replay is a very different kind of 
sideways ROM as it includes additional 
(and attached) hardware. Replay is a 
utility that will allow you to save the 
complete status of your Beeb to disc at 
any time. This can then be loaded into the 
machine again and the program continued 
from where you left off. 


The prime use for Replay is to 
transfer tape programs to disc. First a 
special file on a disc is created. Then 
Break or Escape is pressed and the tape 
program (probably a game) is loaded in the 
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REPLAY System by Vine Micros 


Drive Tracks: Sectors 


BOMBER RUN 


Press appropriate letter to run a 
, or number for a utility :- 
2) ce 
4) € 
6) 


normal way. Next you wait until the game 
is fully loaded and press Replay's own 
trigger button. This initiates the saving, 
to disc, of the entire contents of the 
Beeb's 32K RAM and the status of the 
various control chips. Later on, you can 
re-enter Replay and choose to reload the 
file saved. Replay will then return your 
machine to exactly the state it was in 
when the button was pressed and you can 
play the game. 


Replay can save the Beeb's contents 
during any program regardless of where it 
came from - tape or disc. This means that 
any game (or other program) can be 
transfered to your own disc. The ROM can 
also be used to just freeze a game and it 
can display the screen at the time that 
the RAM was saved. This makes dumping your 
favourite game's screen to the printer an 
easy task. You can even edit the file 
created on disc to make changes to the 
game. Vine Micros supply the relevant data 
to make a few changes, such as a blue 
background in Flite and infinite lives in 
Frak. 


The only problem with Replay is the 
hardware. Apart from the ROM - along with 
with several flying leads - there is the 
trigger switch, a circuit board on the end 
of a flying lead, a replacement link for 
switch S21 on the board, and a two header 
plugs to jam over the relevant chips in 
your BBC. The methods chosen for the 
connection of Replay to your machine do 
mean that its installation is never 
permanent. It also means that the 
connections are never very reliable. I'd 
be inclined to solder mine into position, 
but that's up to you. 
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[char LOAD CHARACTER SET 


Start 
End 


| 
File name - GOTHIC | 
Å | 
| 
| 


a  @ABLBEFE 
"BITRLARO 


“POR STUDY 


“XBEL\T P 


NLQ DESIGNER from Watford 

The advent of the Kaga-Taxan (or 
Canon) NLQ printers has created a lot of 
interest amongst all computer users, 
especially those with a BBC micro. The 
high resolution characters produced by 
these machines are a worthy rival to the 
traditional daisy wheel printer. However, 
these machines also offer the facility of 
a downloadable alternative NLQ character 
set. To make use of this your printer must 
be fitted with a 'PCG RAM' kit - just a 
6264 RAM chip. The NLQ Designer ROM from 
Watford Electronics is a utility to enable 
you to make full use of this facility. 


The NLQ Designer is basically a 
character designer very similar to those 
well known to BBC owners. The NLQ 


characters are printed on paper using a 
23 x 18 character grid in two passes. 
However, NLQ characters are designed on a 


12 x 16 grid. The cursor keys move around 
the grid and the space bar toggles 
individual 'pixels' on and off. They can 
be designed on this smaller grid as each 
cell represents two pixels offset 
horizontally from one another and 
overlapping. The vertical discrepancy is 
accounted for by the characters with 


descenders (such as 'g' and 'p'). These 
are printed two pixels lower than the 
others. 

As a character is defined its various 


properties are displayed. These are the 
horizontal start and end positions on the 
grid, the width (for the proportional 
spacing) and whether the character is to 
be printed as one with a descender. As a 
character is designed the accompanying 
characters in its group are displayed. 
Once designed the entire group of 
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characters can be saved to cassette or 
disc. Similarly other groups can be loaded 
for further editing. Watford provide three 
character sets (Bold, Courier, and Gothic) 
on the disc accompanying the NLQ Designer 
ROM. 


For anyone with a Beeb and a 
Kaga-Taxan KP810 or Canon PW1080 this ROM 


provides a valuable extension to the 
already impressive facilities of these 
printers. 


ROMAS from Watford 

ROMAS is a cross assembler and macro 
editor that will generate object code for 
the Mostek 6502 and 6511, Rockwell 65C@2, 
Zilog Z8 and Z80, Intel 8085, 8041 and 
8048 and Motorola 6809 processors. 


ROMAS features a comprehensive screen 
editor which works in all 40 and 80 column 
modes. The editor is split into two 
windows with a status/command window 
occupying the first three lines on the 
screen and the editor taking up the rest. 


In addition to the EPROM, the package 
consists of a disc, a comprehensive 160 
page A5 manual and function key strip. 
ROMAS has to be used in conjunction with a 
disc drive as the assembler reads source 
code directly from disc. The EPROM 
contains the 3 versions of the assembler 
that support the 6502, 6511 and 8085 
processors. The other 6 are held on disc. 


All of the routines in ROMAS are 
invoked through * commands. The assembler 
is entered using *ASM and the editor is 
entered using *EDT or *BEDT. Further 
commands available are *LOCATE to relocate 
assembled 6502 code, *CLOSE to close all 
the currently open files, *INTEL and 
*HEXCONV to convert a hex code file into 
an INTEL standard hex file, and 
*TRANSMIT, *RECEIVE, *DATA and *DOWNLOAD 
to set the baud rate of the RS423 and 
download files to other machines. 


The EPROM contains a useful cross- 
referencer (*XREF) while the disc contains 
the source code of a 6502 disassembler. 


ROMAS is certainly a comprehensive 
cross assembler and at only £51.75 
represents excellent value for the serious 
user. 


Je 
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Programming with 


Wordwise 


(part 2) 

Stephen Ibbs 

continues his 

series on 

programming in 

Wordwise Plus by X at T2 
role that loops have to play, 
again illustrated with useful 
hints and examples. 


Last month a problem was posed 
concerning the small routine to delete the 
current line of text (reprinted below). 
The question was how to extend it so that 
the two lines, now joined together, are 
separated by one space, not two or none as 
can often be the case. 


SELECT TEXT 


If we imagine three text lines, A, B, 
and C, with line B now deleted, then 
calling this routine will leave the cursor 
underneath the first character of line C. 
We need to check if this character, and 
the one to its left (the last on line A) 
are spaces so the following lines are 
added: 


CURSOR LEFT 

AS-GCT$ 

BS=GCTS 

CURSOR LEFT 

IF A$=" " AND B$=" " THEN DELETE AT 
IF ASO" " AND B$O" " THEN TYPE "" 
DISPLAY 


This places the cursor back underneath 
the first character of line C, with AS and 
B$ holding the 2 characters. A single 
space will have been inserted (to the left 
of the cursor), if there was none, or 
deleted if there were 2. You may like to 
develop this further, to cope with 
deleting the top line of a piece of text, 
because when deleted, the routine can't 
obey the CURSOR LEFT because it will be at 
the very start of text (SOT). 
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HINT: The TYPE command inserts to the LEFT 
of the cursor position, the same as when 
inserting text when in EDIT mode. 


Last month a hint was given about 
inserting the DISPLAY command into 
routines so that you can see them at work. 
Users of Wordwise Plus later than version 
1.48 (as most are) have an alternative 
command, DISPLAY]. It is difficult to 
explain how this works, the best way being 
by the following example loaded into 


segment 0: 


SELECT TEXT 
REPEAT 
AS=GCTS 


DISPLAY 
UNTIL AS-CHRS13 


Place the cursor within some text, 
call the routine and the screen flickers 
as the routine repeats itself. Now change 
DISPLAY to DISPLAY] and call the routine 
again. This time there's no  flicker. 
DISPLAY! will not always eliminate flicker 
(especially if the screen is being updated 
causing the screen to scroll). However, it 
is always well worth trying. 


HINT: Try DISPLAY] instead of DISPLAY, 
especially when developing routines. It 
(usually) avoids screen flicker. 

The above routine introduces the 
REPEAT-UNTIL commands, very similar to 
their Basic counterparts in that the set 
of instructions enclosed by them will 
repeat until the terminating condition is 
met. Quite often this condition will be 
the start or end of text (SOT or EOT). A 
simple illustration of a loop, also using 
the commands so far discussed is given 
below. It will join together two 
paragraphs separated by one or more blank 
lines. 


The routine consists of three 
sections. The first places the cursor at 
the end of the upper of the two lines to 
be joined together. If it finds a 
character at position 39 the cursor is 
moved one place to the right. The second 
section is the REPEAT-UNTIL Loop that 
takes a character, checks to see if it is 
a space or a Return, then deletes it. Note 
that it deletes left, because the cursor 


moves one position to the right, as has 
been stressed before. The final section is 
the same as for the 'delete line' routine 
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- a check to ensure the lines are 
separated by one space. 


SELECT TEXT 

CURSOR AT 39 

IF ?&7E=39 THEN CURSOR RIGHT 

REPEAT 

AS-GCTS 

IF AS-CHR$13 OR A$=" " THEN DELETE LEFT 
UNTIL A$<>CHRS13 AND A$<>" " 

CURSOR LEFT 2 


AS=GCTS 

BS=GCTS 

CURSOR LEFT 

IF A$=" " AND B$-" " THEN DELETE AT 


IF AS<>" " AND BS<>" " THEN TYPE " " 
DISPLAY 


This routine could also be developed 
further. At the moment it cannot cope if 
the upper of the two lines being joined 
ends (somewhat unusually) with more than 
one space. 


Wordwise Plus does not have the 
FOR-NEXT commands of Basic. It is possible 
to use the REPEAT-UNTIL commands to repeat 
a routine, say, five times: 


A$-0 

REPEAT 

(main routine) 
A%=A%+1 

UNTIL A%=5 


However, it's more convenient to use 
the DOTHIS-TIMES commands which really 
speak for themselves. It is similar to 
REPEAT-UNTIL in that it can 'DOTHIS' until 
some criteria has been met, e.g. DOTHIS - 
TIMES A%, where A$ has been given a value 
thus: 


DOTHIS 
(main routine) 


TIMES 5 


To illustrate their use further, we 
will write a very short routine to print 
multiple copies of the text. In addition, 
this will use the commands PRINT and, 
importantly, DEFAULTS. First we must 
establish how many copies are wanted, so 
the question needs to be presented on the 
screen: 


CLS 
PRINT "How many copies? " 


A%=GET-48 
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The CLS is self-explanatory, but it is 
worth emphasizing that clearing the screen 
like this does NOT destroy any text. The 
question is displayed and the third line 
will wait for a number to be typed in. It 
will react to the first key pressed, so 
only single numbers can be inserted. The 
GET command returns the ASCII value (just 
like Basic), hence the GET-48 so that A$ 
contains the value we actually want. If we 
want the routine to be able to print more 
than 9 copies at a time we would have to 
use the following: 


CLS 
PRINT "How many copies? " 
A%=VAL (GLKS ) 


This waits for you to type in the 
number, e.g. 25, and doesn't do anything 
until Return is pressed. Then A% takes on 
the VALue returned by GLK$. The GLK$ means 
'Get Line From Keyboard' and allows you to 
type in up to 255 characters and place it 
in a string variable, if required. Note 
that neither of these question options has 
any error trapping to prevent you typing 
in letters, nor a 'Y/N' check in case you 
type in the wrong value. 


The routine would then continue with 
the lines: 


SELECT TEXT 
DOTHIS 
DEFAULTS 


PRINT TEXT 
TIMES A$ 
DISPLAY 


Note the DEFAULTS command. This resets 
all the formatting commands back to their 
original values. If this was omitted, the 
second printed copy of the text, assuming 
EP was set, would not start at page one 
and all your formatting could be upset. 


HINT: Don't forget the DEFAULTS command 
when using PRINT or PREVIEW, otherwise the 
formatting could be upset. 


The PRINT command is possibly one of 
the most useful Wordwise Plus commands, 
because it can be qualified by a second 
word, PAGE. So if for example you have a 
13 page document and you slightly edit 
page 12 it is obviously wasteful to 
reprint the entire document. Similarly it 
is not easy to work out where the markers 
should go to just print page 12. What you 
can do is go to the menu and type: 
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:DEFAULTS <Return> 
:PRINT PAGE 12 <Return> 


and just that page will be printed. Note 
again the DEFAULTS command. If you just 
want to check what page 12 looks like you 
would type PREVIEW instead of PRINT, but 
unlike menu option 7, the screen will 
immediately clear when the preview has 
taken place. 


As well as being useful when dealing 
with text already in memory, the PRINT and 
PREVIEW commands can cope with text on 
file, whether disc or tape, by following 
the command with FILE and the filename in 
quotation marks. Omitting DEFAULTS 
deliberately between separate PRINT 
statements can be useful if you want to 
print related files with the page numbers 
continuing in sequence e.g.: 


DEFAULTS 

PRINT FILE "filename 1" 
PRINT FILE “filename 2" 
PRINT FILE "filename 3" 
DISPLAY 


Earlier, the two commands SOT and FOT 
were mentioned, and a simple illustration 
of how EOT can be used effectively is 
given below. When typing in text, it is a 
chore to have to press Return twice and 
then Tab, to separate each paragraph. It 
would be easier to simply insert a little 
used character, say '{', wherever a new 
paragraph was needed. When all the typing 
is finished a routine could be called to 
do the job automatically: 


SELECT TEXT 
CURSOR TOP 
REPEAT 
FIND non 


TYPE "|R|R|T" 
DELETE AT 
UNTIL EOT 
DISPLAY 


CURSOR TOP starts the routine from the 
Start of the text. We now need to find the 


EASIER BYTES - Jonathan Temple 
When using VDU commands, or 
program space to use -l instead of 255. 
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similar, 


Ua na PIE RES SE SSS SPR ee mereço rm e 


first occurrence of the symbol, using 
FIND, which places the cursor underneath 
the {, and then type in the Tab. A Return 
is typed in with |R and |T gives the Tab. 
Finally, the DELETE AT removes the 'í' 
from the text. Remember that TYPE inserts 
characters to the left of the cursor so 
it's still under the {. This routine is 
repeated until the end of text. However, 
if you run this routine, you will find an 
error. An extra Tab has been inserted at 
EOT, so to stop this happening we must use 
the FALSE command, and modify the fifth 
line to: 


IF EOT=FALSE THEN TYPE "|R|R|T" 


In other words: 'if it isn't the end of 
text type in the Tab'. 


HINT: When using REPEAT-UNTIL loops, make 
sure that you check for the SOT and EOT 
otherwise the routine may 'lock-up' and/or 
you may get unexpected results. 


Wordwise Plus supports procedures. 
These work very much as their Basic 
counterparts, except that the name is not 
defined with DEFPROC. Instead, it is 
marked with a full stop. The procedure is 
called in the same way as in Basic, so 


'PROC start' would call a routine marked 
with '.start' and run from there until 
ENDPROC, at which point it returns to the 


line following the PROC command. When 
using procedures, they are usually put 
after the end of the main routine to make 
'debugging' easier. However, this does 
mean that the program end must be marked 
with an END command so that the computer 
doesn't accidentally run on into a 
procedure. Under other circumstances the 
END command is entirely optional. 


have a 
routines 


As a problem for next month, 
look at the chapter-numbering 
published on page 17 of the June 1985 
BEEBUG  (Vol.4 No.2) and convert them to a 
single routine using procedures. You will 
also need to insert questions, as we have 
done here, so that the user can select 
which 'sub-routine' he wants. Ses] 


it is easier, quicker, and takes up less 


el 
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Hidden Line removal 


Turn your wireframe displays 
into solid-looking 3D objects 
with this technique for hidden 
line removal from Andrew 
Barnes and Simon Cooke. 


Representing 3D objects on micros is 
usually restricted to wireframe drawings 
(see 3D ROTATION, BEEBUG Vol.1 No.1Ø). 
Wireframe drawings serve their purpose but 
can be confusing. An obvious step nearer 
to reality would be the removal of hidden 
lines. However, the extra complexity of 
achieving this is usually dismissed as a 
task for mainframes. 


This ` program will display a 
perspective wireframe projection of any 
suitable object from any angle about the 
vertical and horizontal axes and then 
optionally remove all the hidden lines 
from the new display. 


USING THE PROGRAM 


When run, the program spends a short 
time setting itself up to display the 
defined object and then the user is 


prompted to enter the orientation in which 
the object is to be drawn, in the form: 
angle of rotation about the object and 
angle above the flat plane (both in 
degrees). The object is then drawn - first 


as a wireframe diagram and then with hidden lines 
removed if desired, always with true perspective. 


When the hidden line display is being created you 


co-ordinates for each point. Then comes 
the data to define how these points are 
linked to form surfaces. Each surface is 
entered as the point numbers, in order 
around the edge of the surface, separated 
by a hyphen. The data for each surface is 
separated by a coma. Note that the 
starting and finishing point of the 
surface need only be entered once. 


A surface may be defined with any 
number of points, but to simplify the 
program, defined surfaces may not contain 
intruding points. However, such surfaces 
may still be catered for by entering them 
as two or more separate surfaces (which 
the program can handle) joined without the 
normal joining line (see diagram). 


To specify such a join, the hyphen 
between the 'missing' line's two end 
points should be replaced by a full stop. 
This process may seem complex but should 
be made clearer by an example: The surface 
in the diagram could be represented by: 

0-1-2. , 7.5-6- , 3-2.0-5.7-4- 

When testing or debugging the program it 
is a good idea to add a 'DATA END' 
Statement early on to reduce the amount of 
data which the program has to handle and 
speed up test runs. The data provided in 
the listing here will produce a display of 
a house. 


ALGORITHM 

Taken at its simplest, the program 
must draw the faces of an object which lie 
at the back first and the ones nearest 
last, to conceal the lines which should 
not be visible by filling in each face as 


Rotation:18 Elevation:68 


can halt the image generation by pressing the Shift 
key and move on to the next step using the space bar. 
It will soon became obvious how much clearer even a 
simple object can become when it is drawn as a solid 
in this way. If you want a printout of the display at 
any time, Escape will activate the screen dump if one 
has been included (line 2890). 


DEFINING AN OBJECT 

The object is defined in DATA statements at the 
end of the program. Lines 2920 and 3000 must be 
included in any data, preceeding the point data and 
surface data. The first part of the data defines 
points on the shape in the form 'X,Y,Z'. Firstly, the 
number of points must be given, in line 2930 (39 in 
this example). This should be followed by the X,Y,Z 
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View from (Rotation,Elevation): 


Intruding points 


it is drawn. The obvious problem is how a 
computer can tell where surfaces lie in 
relation to the observer and each other in 
a useful way, and then decide on the order 
in which to draw them. The method 
described here roughly follows the pattern 
of a recursive sort where 'in front of' 
and 'behind' replace ‘less than' and 
‘greater than'. 


The algorithm used starts with an 
un-ordered list of the surfaces. From this 
list a surface is selected such that no 
other surface has points both in front and 
behind the chosen surface. If this is not 
possible, any surface can be chosen, but 
each other surface which has points lying 
on both sides of the chosen surface has to 
be split into two parts, one 'in front' 
and one 'behind'. These two new surfaces 
replace the original one in the list. The 
list is then rearranged to consist of 
first those behind the chosen surface, 
then the surface itself and those in the 
same plane, and finally those lying in 
front. This is effectively taking the 
whole shape and splitting it into two 
shapes, one of which is behind the chosen 
surface (drawn first) and the other in 
front (drawn last). The parts of the list 
corresponding to each 'new' shape must now 
be sorted using the same method as before. 
Since these new shapes can themselves be 
split to form new shapes the procedure 
lends itself to recursion. The whole 
process ends when each new "shape! 
consists of only one surface. The surfaces 
are then drawn in the order given by this 
sorted list. 


PROGRAM NOTES 
Main procedures: 

PROCgetdata reads the data. Definitions of 
points are read into arrays X,Y and Z, 
and definitions of surfaces are read 
into memory starting from pldef%. 

PROCeq calculates coefficients of  equat- 
ions of planes, in arrays A%,B%,C%,D%. 
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PROCmc sets up two short machine code 
routines, rd and wr, which are used to 
quickly access the "bit compressed' 
table (stored in memory arr) of 
relationships between surfaces. 

PROCarray sets up the table starting at 
arr$. The table is effectively a two 
dimensional array with which the 
numbers of two surfaces are used to 
look up a two bit element determ- 
ining their relationship in space. 

PROCtransform(th,ph) rotates all points by 
th degrees about the vertical axis of 
the display and ph degrees about the 
horizontal axis, and carries outa 
perspective transformation leaving the 
resulting co-ordinates in arrays X% 
and Y$. 

PROCout line (A%,col$) draws 
surface A$ in colour, col$. 

PROCorder(F$,T$) sorts part of the array 
'list' starting at F% and ending at 
T$. Using the surfaces between these 
limits it selects one and sorts the 
other surfaces into those in front and 
those behind. It then calls itself 
twice to sort out these sub-sections 
of the list. 

PROCdraw(A$) draws surface A$. 

PROCrel(X$,Y$) works out relation between 
two surfaces and stores it in an 
array. 

FNside(A$,B$,D$) returns TRUE if surface 
B$ is on the side of surface A$ 
specified in D$. 

PROCdivideAbyB (A%,B%) splits surface AS in 
two along the plane of surface B$. 

FNsplit (pl$,p2$,m,n) 
calculates a point which divides the 
line between the points pl$ and p2$ in 
the ratio m:n and transforms it. 

PROCscreendump a call to a screendump 
routine (e.g. *GDUMP) inserted at line 
2910 is initiated by pressing Escape. 


outline of 


18 REM Program 3D Hidden line removal 
20 REM Version Bl.Ø 

30 REM Authors S. Cooke & A. Barnes 
40 REM BEEBUG Nov 1985 

50 REM Program subject to copyright 


109 MODE4 

Ng scale-700:dist-200 

120 mp$-1090:mpl$-100 

130 DIMX$ (mp$) , Y% (mp3) 

140 DIMX (mp$) ,Y (mp3) ,Z (mp$) 

150 DIMpldefs$500,pp$ (mp1$):pptr$-0:np 


160 DIMlist$mpl$,list29$mpl$ 
170 DIMVrel$mpl$ 
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= 


180 DIMeqn$mpl$,col$ (mp13) 

PIG š 

200 VDU29,640;512;28,0,31,39,29,24,-64 
Ø; -416;639; 479; 

210 PROCgetdata 

220 pnpls$-npls$:pnpts$-npts$ 

230 scale=7ØØ:dist=2ØØ 

240 PROCtransform(3Ø,4Ø) 

250 FORA%=@TOnp1s%-1 : PROCout Line (A%,1) 


270 neqs=npls% 

280 DIMA$ (neq%-1) ,B% (neq$-1) ,C% (neq%-1 
) ,D$ (neq%-1) 

290 PROCeq 

300 DIMarr$mpl$* (neq%-1)DIV4 

310 DIMmc$200 

320 PROCmc 
330 PROCarray 


350 ONERROR IF FNerror END ELSEGOTO350 
360 REPEAT 
370 CLS:INPUT"View from (Rotation,Elev 
ation):"rot,elev 
380 VDU28,0,0,39,0,12:PRINT;" Rotation 
:"Prot,"Elevation:";elev;:VDU28,0,31,39, 
29,10 
390 npls$-pnpls$:npts$-pnpts$ 
400 PROCtransform(rot,elev) 
410 CLG 
420 FORA$-0üTOnpls$-] 
430 list%?A%=A%:PROCoutline(A%,1) 
440 Vrel%?A%= (SGN (A% (A$) *Vx+B% (AS) *Vy+ 
C$ (A$) *Vz+D% (AS) ) +1) DIV2 
450 NEXT 
460 CLS:PRINT"Remove hidden lines? (Y/ 
N) : "7 : REPEATAS-GET$: UNTILAS="N"ORAS="Y"': 
IFAS="N" GOTO370 
470 PRINT''"Please wait"'"(Shift to ha 
lt. Space for next surface)" 
480 lt$-npls$ 
490 TS-0 
500 PROCorder (0,npls$) 
510 CLG:*FX15 
520 FORA$-0TOlt$-1:PROCdraw(list$?A$): 
IF INKEY(-1) THEN REPEAT UNTIL GET=32 
530 NEXT A$ 
540 UNTILFALSE 
550 : 
1900 DEF PROCgetdata 
1010 PRINTTAB (15) "Please wait" 
1020 READptS: IFLEFTS (pt$,10) "Point da 
ta" STOP 
1030 READnpts$ 
1040 FORA$-0TOnpts$-l:READX (A$) ,Y (A%) ,Z 
(A$) :NEXT 
1050 READpl$:IFLEFT$ (p1$,12) C^ "Surface 
data" STOP 
1960 pp% (npls$) 
1970 C3=Ø 
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-pptr$ 


1888 eqn$?npls$-npls$ 

1698 READp$:IFp$-"END" ENDPROC 

1100 REPEAT 

1118 pldefs%?pptr%=VALLEFTS (p$, INSTR (p$ 
+","w w".")-1):pptr%=pptr%+1 

1120 REPEATpS=MIDS (pS, 2) :UNTILASCpS=ASC 
"_"ORASCpS=ASC" ` "ORp$- mn 

1130 IFASCpS-ASC"." C%=C%+C%ELSEC%=C%+C 
$41 

1140 p$=MIDS (p$, 2) : UNTILpS="" 

1150 col% (npls$)-C$:npls$-npls$*l:pp$ (n 
pls$)-pptr$ 

1168 GOTO1Ø7Ø 

1170 : 

1180 DEF PROCeq 

1198 FORN%=9TOnp1s%-1 

1200 p$-pp$ (N%) 

1210 x$-X (pldefs$?p$):y$-Y (pldefs%?p3) : 
Z%=Z (pldefs%?p%) 

1220 A% (N%)=(¥ (pldefs$? (p$*1))-y$) * (Z (p 
ldefs$?(p£42))-z$)- (Y (pldefs$?(p$*2))-y$ 
)* (Z (pldefs$? (p$*1))-z$) 

1230 B% (N%)= (Z (pldefs$?(p$*1))-z$) * (X (p 
ldefs$? (p$*2))-x$)- (Z (pldefs$? (p%+2))-z% 
) * (X (pldefs$?(p$41))-x$) 

1248 C$ (N%)= (X (pldefs%? (p%+1) )-x3%) * (Y (p 
ldefs$? (p$*2))-y$)- (X (pldefs$? (p3+2) )-x% 
)* (Y (pldefs$? (p3+1))-y$) 

1250 D$ (N%) =-A% (N$) *x$-B$ (NS) *y$-C$ (N$) 


1260 NEXT 

1278 ENDPROC 
1280 : 

1290 DEFPROCmc 
1300 FORpas%=ØTO2STEP2:P%=mc%: [OPTpas$ 
1318 .rd 

1320 LDA&448:STA&7Ø:LDA&449:LSRA :ROR&7Ø 
: LSRA: ROR&79:STA&71:LDA&7@:CLC:ADC #arr% 
MOD256: STA&72:LDA&71 : ADC#arr%DIV256: STA& 
73: LDY#Ø:LDA (&72) , Y: STA&74 

1330 LDA&448:AND#3: TAY: LDA&74 

1340 CPY#0:BEQrts: . loop: LSRA:LSRA: DEY :B 
NEloop:.rts:RTS 

1350 .wr 

1360 LDA&448:STA&70:LDA&449:LSRA:ROR&70 
:LSRA: ROR&70: STA&71:LDA&70 :CLC : ADC«Farr $M 
0D256:STA&72:LDA&71 : ADC«tarr$DIV256: STA&7 
3:LDY#Ø:LDA (&72) , Y: STA&74 

1370 LDA43:STA&70:LDA&444:STA&71 

1380 LDA&448:AND#3: TAY 

1390 CPY40:BEQmsk:.loop:ASL&70:ASL&70:A 
SL&71:ASL&71:DEY:BNEloop: .msk 

1400 LDA&70:EORS&FF:AND&74:ORA&71: m 
: STA (&72) , Y: RTS 


1410 ] : NEXT 

142Ø ENDPROC 

1430 : 

1440 DEF PROCarray 

1450 FORX$-0TOneq$-l 

1460 PRINT;neq$-X$;" "; 

1478 PROCegn (X$) 

1480 FORY$-0TOnpls$-l 

1490 P$-pp$ (Y$):R$-X$*neq$*Y$:0$-0 

1500 REPEATN$-pldefs$?P$:0$-0Q$0OR ( (SGN (c 
AS$*X (NS) +cB3*Y (NS) *cC$*Z (N$) +cD%) +3) MOD3 
) : P$=P$+] : UNTILQS=3ORP%=pp% (Y$41) 

1518 CALLwr 

1520 NEXT: NEXT:CLS: ENDPROC 

1530 : 

1540 DEF PROCrel (X$,Y$) 

1550 LOCALP$,0$ 

1560 P%=pp% (Y$) 

1570 Q$-0 

1580 REPEAT: Q%=Q30R ( (SGNFNeq (pldefs3?P% 
)+3)MOD3) : P$-P$*1: UNTILQ$-3ORP$-pp$ (Y$*1 


1599 R$-X$*neq$*Y$:CALLwr:ENDPROC 

1600 ENDPROC 

1610 : 

1620 DEFPROCorder (F$,T£) 

1630 LOCALT1% 

1640 IFF%+1>=T% ENDPROC 

1650 E%=F% 

1660 REPEATX%=eqn%?(list%?E%) :E%=E%+1 

1670 P$-F$:REPEATR$-X$*neq$*list$?P$:P$ 
=P%+1:UNTIL(USRrd AND3)-3ORP$-T$ 

1680 UNTIL (P%=T%AND (USRrd AND3) <>3) ORE% 
-T$ 

1690 FORP$-ÜTOT$-F$-1:1ist2$?P$-list?$?( 
P%+F%) : NEXT 

1700 T2$-T$-F$ 

1718 IF(USRrd AND3)<>3 Fl$-F$:Tl$-F$4T2 
$:GOTO1770 

1720 FORP$-ÜTOT$-F$-1:Y$-list2$?P$:R$-X 
$tneq$*Y$ 

1730 IF(USRrd AND3)-3 PROCdivideAbyB (Y% 
,X$):1ist2$?T2$-npls$-1:T2$-T2$41:1ist22 
?P$-npls$-2 

1740 NEXT 

1750 F1%=F%:T1%=F%+T2% 

1760 FORP%=1t%-T%-1TOØSTEP-l:list%?(P%+ 
Tl$)-list?$?(P$4T$):NEXT:lt$-1t$4Tl2-T$:T 
3=T1% 

1770 FORP%=ØTOT%-F%-1:Y%=list2%?P%:R%=X 
%+neq%*Y% 

1780 IF(USRrd AND3)=Vrel%?X%+1 list%?F1 
%=Y%:F1%=F1%+1 

1790 IF(USRrd AND3)=2-Vrel%?X% Tl$-Tl$- 


Rot ation:38 


EE 


l:list$?Tl$-Y$ 

1800 NEXT 

1818 N$-Fl$ 

1820 FORP$-0TOT$-F$-l:Y$-1ist2$?P$:R$-X 


1830 IF(USRrd AND3)=Ø list$?N$-Y$:N$-N$ 


1840 NEXT 

1850 IFN%<>T1% STOP 

1860 Tl$-Tl$-1t$:T$-T$-lt$ 

18780 IFF13-F3>1:PROCorder (F%,F1%) 

1889 IFT%-T1%>1:PROCorder (1t3+T1%,1t3+T 


1890 ENDPROC 


1918 DEF FNside(A%,B%,D%) 

1920 LOCALN%,P% 

1930 s$-0 

1940 cA$-A$ (eqn$?A$):cB$-B$ (eq 
prre ) :cD$-D$ (eqn ?A3) 

1950 vS%=SGN (cA%*Vx+cB%*Vy+cC%*Vz+cD%) 

1960 P: pp$ (B$) 

1978 pS$-SGN (FNeq (pldefs$?N$)) 

1980 IFvS$-0 vS$-D$*ps$ 

1990 IFvS%*pS%=-D%:tt=tt+TIME-t:=FALSE 

2000 N%=N%+1:IFN%<>pp% (B$*1) GOTO1970 

2010 -TRUE 

2020 : 

2030 DEF PROCdraw(A$) 

2040 LOCALC$ 

2050 GCOL0,1 

2060 starts=pldefs%+pp% (A$) 

2070 X0$-X$ (?start$):Y0$-Y$ (?start£) :MO 
VEX’ (start$?1),Y$ (start%?1) :MOVEXØS,YØS 

2080 FORZ$-2TOpp$ (A%+1)-pp% (AS) -1: PLOT8 
5,X$ (start%?Z%) ,Y% (start%?Z%) :MOVEX0$ , YO 
%: NEXT 

2090 PROCoutline(A%,0):ENDPROC 

2100 DEFPROCoutline (A%,col%):GCOL0Q@,col% 

2118 C$-col$ (A2) 

2120 MOVEX3 (pldefs$?pp$ (A%) ) ,Y$ (pldefs$ 
?pp$ (AS) ) :FORB$-pp$ (A %+1 ) -1TOpp$ (A%) STEP 
-1:PLOT4+ (CANDI ) ,X$ (pldefs%?B%) ,Y% (plde 
fs$?B$):C$-C$DIV2:NEXT 

2130 ENDPROC 

2140 : 

2150 DEF PROCtransform(th,oh) 

2160 Cth=COSRADth: Sth=SINRADth 

2170 Cph=COSRADph: Sph-SINRADph 

2180 FORAS=@TOnpts%-1 : PROCtrans (A%) : NEX 
T 

2198 Vz-dist*Cph:Vy-dist*Sph:Vx-Vz*Sth: 
Vz-Vz*Cth 

2200 ENDPROC 

2210 : 

2220 DEF PROCtrans (A$) 

2230 21-2 (A$)*Cth*X (A$) *Sth 

2240 X=-Z (A$)*Sth*X (AS) *Cth 

2250 Y--Zl*Sph*Y (A$) *Cph 

2260 Z=Z1*Cph+Y (AZ) *Sph 


n$?A$):cC 
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2270 S=scale/(dist-Z) 

2280 X%(A%)=X*S:Y%(A%)=Y*S 

2290 ENDPROC 

2300 : 

2310 DEF PROCegn (N%) 

2320 cA%=A% (N$):cB$-B$ (N%) :cC%=C% (N$) :c 
D%=D% (N%) : ENDPROC 

2330 : 

2340 DEF PROCdivideAbyB (A$,B$) 

2350 TIME=Ø 

2360 LOCALNS,M% 

2370 Co$-col$ (A$):Cn$-0 

2380 PROCeqn(B$) 

2390 np$-pp$ (A%+1)—pp% (AS) 

2400 ct%=2"(np%-1) 

2410 start$-pp$ (A$) +pldefs% 

2420 nextpt$-pp$ (npls$) 

2430 ol$--1:02$--1 

2440 d2=FNeq (start$?0):s2-SGNd2 

2450 FORN$-0TOnp$-l 

2460 M$- (N$*1)MODnp$ 

2470 dl=d2:sl=s2 

2480 d2-FNeq (start%?M%) :s2=SGNd2 

2499 IFsl=Ø pldefs$?nextpt$-start$?N$:C 
n3=Cn%+Cn%: nextpt3%=nextpt%+] 

2500 pldefs%?nextpt%=start%?N%:Cn%=Cn%+ 
Cn$- ( (CoSANDct$) <>Ø) :nextpt$-nextpt$-*]l:I 
Fs1=Ø:01%=02%:02%=nextpt%-1 

2510 IFsl*s2=-| pldefs$?nextpt$-FNsplit 
(start$?N$,start$?M$,dl,d2):Cn$-Cn$4Cn$: 
nextpt$-nextpt$*]:pldefs$?nextpt$-pldefs 
$? (nextpt3-1) :Cn$-Cn$4Cn$- ( (CoSANDct$) <> 
Ø) :nextpt%=nextpt%+1:01%=02%:02%=nextpt% 
-1 

2520 Co%=Co%+Co% 

2530 NEXT 

2540 FORN$-0TOO! $-pp$ (no1s3)-1:pldefs%? 
(nextpt3+N3%) =pldefs%? (pp% (npls%) +N$) :NEX 
T 

2550 FORN%=pp% (npls%)TOnextpt%-1:pldefs 
$?N$-pldefs$? (N$+ol $-pp$ (npls$)):NEXT 

2560 Cn$- (Cn$DIV (2^ (nextpt$-02$)))*2^ (o 
2%-pp% (npls%) ) * (Cn$MOD (2^ (nextpt$-02$))) 

2570 npls%=npls%+1:pp% (npls$)-pp$ (npls$ 
=1)+02%=01% 

2580 col% (npls$-1)-Cn$AND (2º (02%-01%)-1 
) 

2590 eqn%?(npls%-1)=eqn%?A% 

2600 npls%=npls%+1:pp% (npls$)-nextpt$ 

2610 Cn%=Cn%DIV (2^ (02%-01 8) ) 

2620 col% (npls$-1)-Cn$AND (2^ (nextpt%-02 
$t*ol$-pp$ (npls$-3))-1) 

2630 eqn’? (npls$-l)-eqn$?A$ 

2640 LOCALX$ 

2650 FORX$-0TOneq$-1 

2660 R$-X$*neq$*A$ 

2670 Q%=(USRrd AND3):IFQ%<>3:R%=X%+neq% 
* (npls$-2) :CALLwr:R$-R$*neq$:CALLwr: GOTO 
2718 
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2688 PROCeqn(X$) 

2690 PROCrel (X$,npls$-2) 

2700 PROCrel (X%,npls3-1 ) 

2718 NEXT 

2720 ENDPROC 

2730 : 

2740 DEFFNsplit (pl$,p2$,m,n) 

2750 X (npts$)- (m*X (p2$) -n*X (p13) ) / (m-n) 
2760 Y (npts$)- (m*Y (p2$) -n*Y (p1$)) / (m-n) 
2770 Z(npts$)- (m*Z (p2$) -n*Z (pl$)) / (m-n) 
2780 PROCtrans (npts$) 

2798 npts$-npts$*l:-npts$-l 

2800 : 

2810 DEFFNeq (P$) 

2820 LOCALn:n=cA%*X (P%)+cB3*Y (P%3)+cC3*Z 
(P$) +cD%: IFABSn<. 1: =@ELSE=n 

2830 : 

2840 DEFFNerror 

2850 IFERR-17 PROCscreendump: -FALSE 
2860 REPORT:PRINT;" at line ";ERL:-TRUE 
2870 : 

2880 DEFPROCscreendump 

2890 REM Insert call to screendump here 
2900 ENDPROC 

2910 : 

2920 DATA Point data 

2930 DATA39 

2940 DATA1090,50,40,100,50,-40,50,50,—40 
,50,50,-25,-50,50,-25,-50,50,-85,-100,50 
,-85,-100,50,40 

2950 DATA1090,0,40,100,0,—40,50,0,—40,50 
,0,-25,-10,0,-25,-50,0,—-85,-100,0,-85,-1 
900,0,40,-50,0,40,-10,0,40 

2960 DATA-10,30,-25,-50,30,-25,-50,30,4 
0,-10,30,40,20,30,40,20,30,80,65,30,80,6 
5,30,40 

2970 DATA-75,65,0,75,65,0,75,65,-40,-75 
,65,-85,42,40,40 

2980 DATA20,0,80,65,0,80,65,0,40,20,0,4 
Ø 

2990 DATA-65,20,40,-65,30,40,-85,30,40, 
-85,20,40 

3ØØØ DATA Surface data 

3010 DATA8-9-10-11.,11-12-17-34.33-8.,3 
4-31-32-33.,13-14-15-16- 

3020 DATA6-7-15-14-,5-29-6-14-13-,0-1-9 
-8,1-28-2-1Ø-9,2-3-11-1Ø 

3030 DATA13-16-290-19.,13-5-4-19.,3-4-19 
-18.,18-12-11-3. 

3040 DATA12-17-21-18-,18-19-20-21- 

3050 DATA30-22-23-,30-23-24-,30-24-25-, 
31-34-22-23-,32-33-25-24- 

3060 DATA7-0.30.,30.21.22-,22-34-17-21. 
,0.25-30.,0.25-33-8- 

3070 DATA7.37-36.20-21.30.,16.35-36.20- 
,15.38-35.16-,15.38-37.7- 

3080 DATA6-7-26-29-,4-5-29-26-,3-4-26-2 
7-,7-26-27-0-,90-1-28-27-,2-3-27-28- 

3090 DATA END 
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COMPUTER CONCEPTS 
SPEAKS OUT 


Despite its early 
promise, speech syn- 
thesis still seems often to 
be in its infancy on the Beeb. 
Now, withthe advent of the latest 
Speech ROM from Computer 
Concepts, the infantis beginning 
to talk intelligibly. Alan Webster 
answers back. 


Product : Speech ROM 

Supplier : Computer Concepts, Gaddesden 
Place, Hemel Hempstead, 
Herts HP2 6EX. 
0442-63933 


Price 1 £33.05 


To be quite honest, I had never been 
very impressed with 'computer speech', 
until I heard the Acorn speech PHROM, with 
good old Kenneth Kendall muttering his 
cultured tones at me. That was around two 
years ago now, and at that point I thought 
that Acorn were on to a winner. 
Unfortunately, nothing significant has 
really happened since then, other than a 
few 'Speech ROMs' which have claimed much, 
but often turned out to do little more 
than help Doctor Who understand the 
Daleks! 


To use this new speech ROM on the 
Beeb, you need the Texas Instruments 
TMS5220 speech synthesis chip as well, to 
plug into socket IC99. The TMS5220 is NOT 
included in the package, so if you haven't 
got Acorn's original speech system (which 
contained the TMS5229) then you will need 
to buy one of these at an extra cost of 
about £10.00. 


The speech ROM is activated by first 
plugging it into one of the sideways ROM 
Sockets, and then typing the command *SPON 
to initialise it. Once this has been done, 
you must press the Break key to allow the 
machine to reserve two pages of memory for 
the speech ROM's workspace. 
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There are four commands to control the 
speech from your Beeb. The *UTTER command 
allows the user to specify one of 24 tones 
in which the speech is to be heard, and 
the phonemes which are to be pronounced. 
The *SING command must be followed by a 
pitch (from A-G and from one of three 
octaves), and the note length. 


*VOICE is used to set the overall 
pitch of the speech, with five settings 
from High to Low. *SYNC allows synchroniz- 
ation between speech and Basic program. 


The vocabulary contains 20 vowel 
Sounds and 24 consonant sounds, which when 
combined can make up a whole word or even 
sentences. As an example, consider how to 
make the Beeb pronounce the phrase "one 
two three'. You would have to type: 


*UTTER<1> W +u N @ T +00 Å TH R +E 


I found it quite easy to build up 
phrases, the most difficult part being in 
getting the intonation and stresses right. 
One small omission was that the package 
contains no phoneme editor, to allow you 
to create your own sounds. 


Editing long sentences 
tedious and difficult, so Computer 
Concepts provide, in the manual, a short 
utility to run in Wordwise-Plus that makes 
life a lot easier. 


can prove 


The manual supplied with the ROM is 
certainly comprehensive and is laid out 
simply and clearly. It starts off by 
showing how to initialise the ROM and 
gives a few well chosen examples to begin 
with. The quality of speech is quite good, 
but often only if you know what the 
processor is going to say! We tested out 
some of the phrases given in the manual on 
various members of staff at BEEBUG. 
Obvious phrases like 'BBC Microcomputer' 
were recognised, but more difficult ones 
like 'hot summer', which sounded as though 
summer had been spelt 'sunger', were often 
incomprehensible. 


Overall, the price seems high for what 


can be achieved. The results are not 
helped either by the relatively poor 
quality of the Beeb's internal speaker. 


However, speech synthesis seems to be 
catching on, and this is certainly the 
most comprehensive and best 'toolkit' for 
speech available at the moment. = 
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Virtual Arrays 


Running out of space for all those arrays in your 
programs? Surac takes a leaf out of the mainframes’ 


book and explains how arrays can be expanded 
beyond the normal memory limitations. 


This month, we return 
to the theme of the 
Beeb's shortage of 
memory. In particular, 
there is not enough room 
for very large arrays, 
such as you might want in 
a program handling marks 
or Scores, or in a data- 
base. However, if you 
have a disc drive, you 
can create and use random 
access files which, in 
some ways, you can use as 
slow arrays. These are 
called "virtual arrays". 


Normally, we think of 
disc files as being for 
program storage, or as 
sequential files. The 
latter, which you can 
also use with a tape 
system, contain data 
written in order by a 
program and which another 
program will read back in 
exactly the same order. 
However, a disc system 
also has the PTR# 
command, specifying ex- 
actly where in a file an 
item of data is to be 
written or read. If each 
item of data is of a 
known size, then we can 
go straight to any 
particular one. For 
instance, if each data 
item occupies 20 bytes, 
then item 100 is 2000 
bytes from the start. 


VIRTUAL ARRAYS 


Suppose that we want 
a virtual array equiv- 
alent to Basic's: 

DIM array (200,50) 
The first thing is to 
find how big a file we 


need to hold that much data. The array 
contains 201*51 (numbering starts at zero, 
remember) floating point (FP) numbers. 
Since a disc file uses 6 bytes to store an 
FP number, that means a total of 201*51*6, 
or 61506 bytes. 


To create the file, we need the hex 
equivalent of that number - use PRINT 
761506 to calculate it. It's &F042, so: 

*SAVE <filename> Ø +FØ42 
will create a file of the correct size. At 
this stage, the file actually holds the 
contents of most of the Beeb's memory, but 
that will be soon overwritten. 


Before you can use the virtual array, 
you must open the file for reading and 
writing using F%=OPENIN ("filename") in 
Basic I, or F$-OPENUP ("filename") in Basic 
II. Once the file is open, you can write 
to and read from it with the following 
routines: 


Virtual Array Routines 
10000 DEF PROCwritearray 


(fileno$,x$,y$,value) 
10010 LOCAL posn% 
190020 posn%=(x%*Ydim&+y%) *6 
10030 PTRÅfileno%=posn% 
10040 PRINTHfileno%,value 
10050 ENDPROC 


11ØØØ DEF FNreadarray 

(fileno%,x%,y%) 
11Ø1Ø LOCAL posn%,value 
11020 posn%= (x%*Ydim&+y%) *6 
11Ø3Ø PTR#fileno%=posn% 
11040 INPUT#fileno%,value 
11050 -value 


Using these routines, the equivalent of 
array (nl,n2)-value is: 
PROCwritearray (F$,nl,n2,value) 
and value=array (nl,n2) is duplicated by: 
value-FNreadarray (F$,nl ,n2) 
Both cases assume that F$ holds the 
channel number set by OPENIN/UP. If you've 
used another variable, pass that to the 
procedure and function. 
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The keys to the routines are lines 
19828 and 11020, which calculate the 
positions of the appropriate items in the 
file. The PTR# statement then sets up to 
read or write that value. The calculations 
use the global variable "Ydim%", which 
holds the number of items along the Y-axis 
(second dimension) of the virtual array. 
Set this variable to the correct value - 
in the example, it is 51 (0-59). 


DATABASE FILES 

As an alternative, you may want to 
hold database information. Suppose you run 
a club and need, say, data about the 
members' names , addresses, membership 
numbers and scores in a club competition. 
It's too much to hold in RAM but you need 
to get to any item. This is a perfect 
application for a random-access file. 


First, work out how big the file must 
be. These files only work if every record 
is the same size - without that, you 
cannot calculate where any particular 
record is. Let's allow 20 characters for 
the name, an address of three 20-character 
fields and an 8-character postcode, plus 
an integer membership number and FP score. 


The DFS stores strings in their length 
plus 2 bytes, integers in 5 bytes and FP 
numbers in 6 (see page 328 of the User 
Guide). Fach record thus has 7 fields and 
occupies (4*22+10+5+6), i.e. 111, bytes. 
If we have 200 members, we need a file of 
22200 (&56B8) bytes, so create a file for 
our use with: 

*SAVE D.MEMFILE Ø +56B8 


Once that's done, OPENIN/UP the file 
and try the database routines. The 
procedures are similar to the ones for 
virtual arrays, but transfer data from and 
to global variables such as  "name$" and 
"membno%". In practice, of course, you 
would use your own variables. In use, set 
"reclen$" to the size of each record (111 
in this case). Thus, to get the 32nd 
record use: 

PROCreadfile(F$,32,111) 


Note FNpad and FNdepad. The first 
forces a string to a fixed size by either 
truncating it or adding spaces to it, 
while the second strips trailing spaces 
from a string. They ensure that all the 


records are the same size. 
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Database Routines 
DEF PROCsavefile 

(fileno$, index$, reclen$) 
LOCAL posn$ 
posn$-index£*reclen$ 
PTRi fileno$-posn?$ 
PRINT#£i leno’ ,FNpad (name$,20), 
FNpad (addl $,2Ø) ,FNpad (add2$, 29) , 
FNpad (add3$, 20) ,FNpad (pcode$,8) , 
membno%, score 

12058 ENDPROC 


13000 DEF PROCreadfile 
(fileno$, index’, reclen?) 
13918 LOCAL posn$ 
13020 posn$-index$*reclen$ 
13030 PTRÉfileno$-posn$ 
13040 INPUT4fileno$,name$,addl$, 
add2$,add3$ ,pcode$, 
membno$,score 
13050 name$=FNdepad$ (name$) 
13060 addl $=FNdepad (addl $) 
13070 add2$=FNdepad (add2$) 
13080 add3$-FNdepad (add3$) 
13090 pcode$=FNdepad (pcode$) 
13190 ENDPROC 


20000 DEF FNpad(str$,len$) 

20010 LOCAL strlen$ 

20020 strlen$-LEN (str$) 

20030 IF strlen%<len% THEN str$-str$ 
+STRINGS ( (len%-strlen%)," ") 
ELSE str$-LEFT$ (str$,len$) 

20040 =str$ 


21000 DEF FNdepad (str$) 
21010 str$-str$4" " 
21020 REPEAT 


21030 ` str$=LEFTS (str$,LEN (str$)-1) 
21040 ` UNTIL RIGHTS (str$,1) O" " 
21050 =str$ 


Inevitably, the routines above, and 
modifications of them, are very much 
slower than in-memory arrays, hardly 
surprising when you consider how hard the 
disc drive is working. For instance, in 
the first case, random virtual array 
elements are written at about 1 per sec 
and read at 2 per sec. Overall throughput, 
though, is much faster when the records 
are addressed in order. 


Note, because the DFS uses a part of 
memory for disc transfers, some virtual 


array or database accesses may be 
satisfied from this buffer area and 
require no physical disc access at that 
time. kcal 
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Acornsoft claims that the 
latest release in the View 
family sets new standards 
for database packages on 
the Beeb. Peter Rochford 
has been investigating 
and reports with some 
enthusiasm. 


Product : ViewStore Database 
Manager 
: Acornsoft, 


645 Newmarket Road, 
Cambridge CB35 8PD. 
Tel: 0223-214411 

: £58.90 


After a 
finally released the database manager we 


long wait, Acornsoft has 
all knew must eventually arrive to 
complete the View 'family'. 


Like the word processor (View) and the 
spreadsheet  (ViewSheet), ViewStore is 
supplied on a ROM to be plugged into one 
of the paged ROM sockets on the BBC micro. 


It comes in the usual smart Acornsoft 
packaging complete with a 115 page manual, 
reference card, keystrip, utilities disc 
and fitting instructions. 


ViewStore is a random access database 
and as such will not work with the 
cassette filing system. It will, however, 
operate with the DFS, NFS and the new 
ADFS. The ability to operate with the ADFS 
means that it can also be used with Acorn 
Winchester hard disc drives and should 
also work on an Electron with Plus 3. I 
should point out that ViewStore does not 
work very well with the old Acorn 0.9 DFS 
and Acornsoft advise the fitting of the 
latest Acorn DNES 1.2. 


Apart from working with the standard 
model B BBC computer and the model B+, 
ViewStore will work with the 6502 second 
processor and with shadow RAM boards such 
as the Aries B-20 and new B-32. 


Maximum file size in ViewStore is a 


staggering 4096 megabytes! In reality, the 
maximum file size is dictated by the drive 
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Cambridge Technopark, 


connected to the computer. With the 
standard Acorn DFS, ViewStore has the 
drawback of only being able to utilize one 
disc surface for a datafile. This is 
unlike, say, Starbase or Datagem where 
multiple disc surfaces may be used as one 
continuous file. Using the ADFS with a 
double sided drive, however, will allow up 
to 720K. A Winchester gives between 1Ø and 
30 megabytes. 


Leaving aside this drawback of file 
size with the DFS, the rest of the speci- 
fication of ViewStore reads like no other 
database yet released for the BBC micro. 
Maximum record size is 60K in theory, but 
limited by the screen mode that you choose 
to operate in. Yes, ViewStore will operate 
in any of the BBC's screen modes. 


The maximum number of fields allowed 
is 254, and the maximum field size is 239 
characters. Unlike other databases I have 
used, ViewStore operates both with the 
usual card layout and a spreadsheet layout 
too. 


In spreadsheet layout, the screen 
scrolls sideways field-by-field, and 
up-and-down from record to record using 
the cursor keys. The displayed width of 
each field can be set by the user so 
although the field may be up to 239 
characters, you can arrange to display 
only the part you generally need to see. 
Thus more fields can be accommodated on 
the screen at one time. Should you need to 
see the rest of the characters in the 
field, ViewStore has the unusual facility 
of letting you scroll the field window 
back and forth. 


Each field can be given a title or 
referred to by number. Should you name the 
field you are restricted to 15 characters 
but this is no problem as ViewStore allows 
you to enter a description of the contents 
of the field at the time you set up the 
database. This can be up to 79 characters 
long and is displayed at the top of the 
screen as you move from field to field. 

The data in each field can be 
alphanumeric, textual, numeric, date or 
American date. Data input validation is 
defined by the user when setting up the 
database, and as well as distinguishing 
between text, numerical data and date, the 
user can specify high and low limits to be 
entered in a field. Furthermore, a list of 
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the permitted entries in the field can be 
specified too. 


In card layout mode, the screen 
displays the maximum number of records 


that will fit. The design of the card 
layout is determined by the user and is 
effected by a system of marking and 
placing, using the cursor keys. 


ViewStore is entered by typing *STORE 
which takes you to the command screen as 
in View and ViewSheet. The various files 
used in ViewStore are kept in certain 
directories and via the PREFIX command you 
can tell ViewStore which drives they are 
stored on. 


To create a new database, a utility 
called SETUP is used. This puts a blank 
data file and format file onto the disc. 
When loaded into ViewStore you qo to the 
edit mode and then enter the details for 
the format of the database and the header. 
This determines the layout of the database 
as regards fields, indexes, key width for 
sorting, and data validation. After this 
has been done you can enter your data. 


One of the benefits of having separate 
format and datafiles, as in ViewStore, is 
that you may create as many format files 
as you require to operate on one set of 
data. 


Your datafiles can also be changed in 
ViewStore, with the CONVERT utility. This 
allows the size of a datafile to be 
increased or decreased and permits the 
size of each record within that file to be 
changed also. 


The IMPORT utility is designed to 
convert datafiles from other databases so 
that they can be read into ViewStore. This 
is an excellent idea and in practice 
worked with all the files I attempted to 
convert from other databases provided they 
were in ASCII format. 


Searching for records in ViewStore is 
done using index files. Each field can 
only be searched if it has its own index 
file created. ViewStore allows up to 9 
indexes which are continually updated, and 
as many read-only as you require. The 
read-only tyve are updated by the INDEX 
utility whilst the updateable ones are 
done automatically as records in the 
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database are changed or added. 

Apart from indexed Ssearching, View- 
Store has a utility called SELECT to 
create subsets of data. SELECT can be used 
on any number of fields with AND, OR and 
arithmetic operators also available. As 
with many of the other operations in 
ViewStore, leading and trailing wildcards 
may be used too. 


After the records have been selected, 
they can be sorted, again on any number of 
fields and with a key length of up to 250 
characters. In use, I found the sorting in 
ViewStore very fast indeed. 


Subsets created by SELECT can be 
CONVERTed into datafiles if required and 
can also be used with the other utilities 
in ViewStore. 


Outputting the data from ViewStore can 
be done to a SPOOL file or sent to a 
printer. The REPORT utility can give you a 
simple listing or one whose format is 
user-defined. User-defined reports can be 
made ` very complex with totalling and 
subtotalling of numeric fields, and 
calculations done using number registers. 
The results can be sent to a linking file 
and read into ViewSheet if desired. The 
report can be in spreadsheet or card type 
layout with text added, printer codes, 
headers and page numbering. 


Other forms of output from ViewStore 
are via the other utilities supplied. 
LABEL will print labels for mailing lists 


etc., while MACRO produces macros for use 
with View and LINK will extract numeric 
data for reading into ViewSheet. 
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| Space 28 Indexed by entry 


jon and price ] 
Cent Lock R=Radio,F=Split r seat ,S-Suarf 


[Rear belts CeCassette,E=Elec vin 
Manufacturer Rustin R Model Mi Type $ 
Extra: Cap 99 
Tank 
fice 17.2 
Wa 49 Stock 


må Model Mini Mayfair Type $ 


The manual supplied with ViewStore is 
very comprehensive but requires careful 
study. There is an example database called 
CARS provided on the utilities disc, and a 
large proportion of the manual is given 
over to working with this to illustrate 
all the features of ViewStore. 


VERDICT. 
In the space of this review I have 
really only outlined the main features of 


ÑE [ V T F Y vY 


what is an extremely sophisticated and 
powerful database, and unlike any other I 
have used on the BBC micro. 


ViewStore's one major drawback is its 
ability to utilize only one disc surface 
for a datafile, but then I blame the Acorn 
DFS in this respect for not allowing 
configuring of more than one disc surface, 
and for being only single-density [An ADFS 
upgrade is now available for the model B - 
see News page]. 


Any other criticisms of ViewStore must 
be regarded as nit-picking. Within the 
constraints of the BBC's memory and filing 
system, Mark Colton has produced a 
remarkable piece of software and at £58.90 
inc. VAT, it is excellent value for money. 


ViewStore is not the simplest of 
database packages to understand and some 
time and effort will be needed to 
appreciate fully what it is capable of. 
Despite that, there is no doubt in my mind 
that this is now the definitive database 
package for the BBC micro and the one that 
all others will be judged against in the 


future. 5] 
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6220 : 

20000 DEF FNask (msg$) 

20020 LOCAL A:PRINT msg$; 

20040 REPEAT:A-INSTR ("YyNn" ,GET$) : UNTIL 
A:IF A>2 THEN PRINT"N" ELSE PRINT"Y" 
20060 -A 


20200 DEF PROCheader 

20220 PROCwindowl :CLS 

20240 IF open% THEN PROCinv (1) : PRINT STR 
INGS (80,"" "):PRINTTAB(5,Ø) "File: "F$;TAB 
(28,0) "Number of records: "SPC (4-LEN (STR 
$ (rec-1))) ; rec-1: PROCinv (Ø) 

20260 PROCwindow2: ENDPROC 


20400 DEF PROCwindowl : IFw=2 X-POS:Y-VPOS 
20420 VDU28,0,19,79,3:w-1:ENDPROC 

20440 DEF PROCwindow2:VDU28,0,24,79,21 
20460 VDU31,X,Y:w=2:ENDPROC 


20600 DEF PROCinv (on) 


20620 IF on THEN COLOURØ:COLOUR129 ELSE 
COLOUR! : COLOUR! 28 
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20640 ENDPROC 

20660 : 

30000 DEF PROCstar (p$) 

30010 PROCwindow] :CLS: PROCoscli (p$) : PROC 
window2 

30020 PRINT"Press any key to continue"; 
30030 G=GET: PROCheader: PRINT 

30040 ENDPROC 

30050 : 

30060 DEF PROCoscli (Sos) 

30070 LOCAL X$,Y$ 

30080 X%=os:Y%=os DIV 256:CALL &FFF7 
30090 ENDPROC 

30100 : 

31000 DEF PROCerror 

31010 IF ERR=17 THEN PROCwindow2: PRINT"C 
ommand aborted":GOTO 140 

31220 ON ERROR OFF 

31030 PROCwindow2 

31040 REPORT:PRINT" at ";ERL 

31050 PROCclose:VDU26:*FX4,Ø 

31060 ENDPROC 


el 
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Programming 
sideways 


Following our project on 
constructing an EPROM 
programmer, J.P. Jakubovics 
describes a utility for converting 
your machine code pro s to 
sideways ROM or RAM. 


With more and more users having 
Sideways ROM expansion boards, many of 
them fitted with RAM, it is useful, as 
well as interesting, to write your own 
'sideways' software. To help such users, 
and as a follow up to our recent articles 
on building your own EPROM programmer 
(BEEBUG Vol.4 Nos.4 and 5), we present two 
programs to help aspiring ROM programmers 
get started. The first program, in machine 
code, is a skeleton ROM program which only 
needs your own routines to be added. The 
Second program can be used to test the 
code before 'blowing' it into an EPROM - 
only needed by users who have no sideways 
RAM. 


HOW ROM SOFTWARE WORKS 

There are two kinds of ROMs - language 
ROMs and service ROMs. Language ROMs are 
self-contained programs such as 
programming languages, wordprocessors, 
databases, etc. Service ROMS are 
collections of machine code routines that 
can be called, usually with a '* command', 
fron within a language. We are only 
concerned here with the latter type of 
ROM. More information on ROMs can be found 
in the Advanced User Guide, page 317. 


When the operating system encounters a 
* command, either directly typed in from 
the keyboard, or fram a program, it passes 
it to each ROM in turn. Each ROM then 
decides whether to respond to the command 
or to ignore it. There are two important 
forms of * commands a ROM may encounter. 
It may be a command name after the '*', 
which may be followed by one or more 
arguments (such as, for example, the 
filename that follows *LOAD or *SAVE), or 
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it may be *HELP optionally followed by a 
name. The ROM can distinguish between the 
two cases as, on entry to the ROM, the 
accumulator contains 4 or 9 according to 
whether a general or HELP command has been 
encountered. The memory location 
containing the beginning of the command is 
pointed to by locations &F2 and  &F3 
together with the Y register, so that 
LDA (&F2),Y can access the first character 
of the command, and the rest of the 
command may similarly be read by 
incrementing the Y register. It will 
already be apparent that the ROM has to 
contain quite a lot of machine code just 
to enable it to decode commands, before it 
can even begin to respond to them. 


A DESCRIPTION OF PROGRAM 1 
Program | is a universal ROM header: 

it contains all the code needed for the 
ROM to respond to commands, including 
*HELP, and it needs nothing more than the 
actual text of the help messages and the 
machine code routines to be appended to it 
- any number of these up to 26. The header 
enables the ROM to respond to commands 
consisting of a single letter after the 
'*', such as *A, *B, etc., with no full 
stop. No distinction is made between upper 
and lower case, and this is why the 
maximum number of routines this ROM 
program can accommodate is 26. It is 
unlikely that these commands will conflict 
with any commercial ROM software. If you 
have any other ROM that does respond to a 
single letter command, you should avoid 
using that letter in your own ROM. (For 
example the BEEBUGSOFT HELP ROM responds 
to *H). 
wu 

1 REM PROGRAM 1 

2 REM VERSION B0.1 

3 REM AUTHOR J.P.JAKUBOVICS 

4 REM BEEBUG NOVEMBER 

5 REM PROGRAM SUBJECT TO COPYRIGHT 

6: 

1Ø MODE7 

20 DIM help$ (25) ,com% (25) 

30 assemb%=&5C00 

40 dest3=&8000 

50 os$-dest$-assemb$ 

60 FOR I%=0 TO 25 

70 helps (I$) =-os% 

88 comb (I%)=-os% 

98 NEXT 
108 title$="MYROM" 
Ng version$="1.00" 
128 year$-"1985" 
130 author$="J.P.Jakubovics" 


140 FOR I$-0 TO 2 STEP 2 

150 P$-assemb$ 

160 [OPT I$ 

170 .start% BRK 

180 BRK 

190 BRK 

200 JMP service%+0s% 

210 OPT FNequs (CHR$ (&82) +CHRS (offpoint 
SEET "+version 
Ke 

220 .offpoint% BRK 

230 OPT FNequs("(C)"+year$+" "+author$ 


240 BRK 

250 .genhelp$ OPT FNequw (&DØD) 

260 OPT FNequs("HELP available on:"+CH 
R$13) 

270 .helptable$ 

280 ] 

290 FOR J$-0 TO 25 

300 [OPT I$ 

318 OPT FNequw((help$ (J%)+os%) AND &FF 
FF) 

320 ] 

330 NEXT 

340 [OPT I$ 

350 .comtable% 

360 ] 

370 FOR J%=0 TO 25 

380 [OPT 1% 

390 OPT FNequw((com% (J%)+os%) AND &FFF 
F) 

400 ] 

410 NEXT 

420 [OPT I$ 

430 .service% PHP 

440 PHA 

450 TXA 

460 PHA 

470 TYA 

480 PHA 

490 LDA &6F 

500 PHA 

510 LDA &6E 

520 PHA 

530 TSX 

540 LDY &103,X 

550 STY &6F 

560 LDA &105,X 

570 STA &6E 

580 CLD 

590 LDX #4 

600 .save6$ LDA &69,X 

610 PHA 

620 DEX 

630 BNE save6$ 

640 LDA &6E 

650 CMP #9 

660 BNE nothelp$ 

670 JMP help3+os% 
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680 


.nothelp$ CMP #4 

BEQ command% 
.norespexit$ LDX #&FA 
.rest6$ PLA 

STA &70,X 

INX 

BNE rest6$ 


RTS 

.command$ JSR stripspaces$*os$ 
AND #&DF 

CMP #65 

BCC norespexit$ 

CMP #91 

BCS norespexit$ 


SBC #65 
ASL A 


LDA comtable%+os%+1,X 
BEQ norespexit$ 

STA &6B 

LDA (&F2),Y 

CMP #13 

BNE notcr$ 

STY &6D 

-comjump% STA &6C 
LDA comtable%+os%,X 
STA &6A 

LDA &6E 


LDA &6F 
LDA #(pull6%+os%-1) DIV 256 
LDA i (pull6%+o0s%-1) MOD 256 


LDY &6D 

LDA &6C 

JMP (&6A) 

.notcr% CMP #32 

BEQ space$ 

JMP norespexit$*os$ 

.Space$ JSR stripspaces$tos$ 
JMP comjump%+os% 

.help$ JSR stripspaces%+os% 
CMP #13 

BNE helpname$ 

LDX #Ø 

JSR &FFE7 

ewrtitle3 LDA start%tos%+9,X 
CMP $40 

BEQ endtitle% 

JSR &FFE3 

INX 
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1280 BNE wrtitle% 

1298 .endtitle$ JSR &FFE7 
1300 JMP norespexit%+os% 
1318 .helpname% AND #&DF 
1320 CMP #65 

1330 BCS compz% 

1340 JMP norespexit$ 
1358 .compz$ CMP #91 

1368 BCC alpha’ 

1370 JMP norespexit%+os% 
1380 .alpha$ STA &6C 
1390 LDA (&F2) ,Y 

1400 CMP #32 

1410 BEQ checkchar$ 

1420 CMP #13 

1430 BNE longer’ 

1440 .checkchar$ LDA &6C 
1450 SEC 

1460 SBC #65 

1470 ASL A 

1480 TAX 

1490 LDA helptable%+os%+1,X 
1500 BNE comexists$ 

1510 JMP norespexit$*os$ 
1520 .comexists% STA &6B 
1538 LDA helptable$*os$,X 
1540 STA &6A 

1550 LDY #3 

1560 JSR mode7%+os% 

1570 LDA #42 

1580 JSR &FFEE 

1590 LDA &6C 

1600 JSR &FFEE 

1610 .nextchar$ LDA (&6A) ,Y 
1620 BEQ ecomhelp$ 

1630 JSR &FFE3 

1640 INY 

1650 BNE nextchar$ 

1660 INC &6B 

1670 BNE nextchar$ 

1680 .ecomhelp$ JSR &FFE7 
1690 .respexit$ LDX #&FA 
1700 .restore6$ PLA 

1718 STA &70,X 

1720 INX 

1730 BNE restore6$ 

1740 PLA 

1750 TAY 

1760 PLA 

1770 TAX 

1780 PLA 

1790 LDA #0 

1800 PLP 

1810 RTS 

1820 .longer$ LDA &6C 
1830 LDX #8 

1840 CMP start%+os%+9,X 
1850 BEQ clonger$ 

1860 JMP norespexit$tos$ 
1870 .clonger$ INX 
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1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2018 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


LDA (&F2),Y 

CMP #46 

BEQ fstop% 

CMP #32 

BEQ elonger$ 

CMP #13 

BEQ elonger$ 

AND #&DF 

CMP start$tos$*9,X 

BEQ nlonger$ 

JMP norespexit%+os% 

.fstop$ LDA start%+os%+9,X 
BNE wrhelp$ 

JMP norespexit%+os% 
.nlonger$ INY 

BNE clonger$ 

.elonger$ LDA start3%tos%+9,X 
BEQ wrhelp$ 

JMP norespexit$tos$ 
.wrhelp$ LDX 20 

JSR mode7$tos$ 

.nextwr$ LDA start%+os%+9,X 
CMP #4Ø 

BEQ endname$ 

JSR &FFEE 

INX 

BNE nextwr$ 

.endname$ JSR copychars$*os$ 
JSR copychars%+os% 

LDX A0 


.nextcom$ LDA helptable%+os%+1,X 


BEQ skiphelp% 
TXA 

LSR A 

Cu 

ADC #65 

JSR &FFEE 

JSR &FFE7 
.Skiphelp$ INX 
INX 

CPX #54 

BNE nextcom$ 

JMP respexit%+os% 
-stripspaces% LDA (&F2),Y 
INY 

CMP #32 

BEQ stripspaces$ 
STY &6D 

RTS 

.pull6$ PLA 

STA &6F 

PLA 

STA &6E 

JMP respexit%t+tos% 
«mode7% LDA #22 
JSR &FFEE 

LDA #7 

JSR &FFEE 

RTS 

-copychars% LDA start%+0s%+9,X 
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2480 BEQ endcopy$ 

2490 JSR &FFE3 

2500 INX 

2510 BNE copychars$ 

2520 .endcopy$ INX 

2530 RTS 

2540 .help$ (ASC ("L")-65) OPT FNequs (CHR 
$13+CHR$13+ "Programs"+CHRS129+"f£Ø"+CHRS$1 
35+"for paged listing.") 

2550 BRK 

2560 .jltext$ OPT FNequs("K.0*FX230,1 |M 
| 1k7 |M|N | !1 |M|O*FX230, 0 |M") 

2570 OPT FNequb (13) 

2580 .com$ (ASC("L")-65) LDX #((jltext%+ 
os$) MOD 256) 

2590 LDY #((jltext%+os%) DIV 256) 

2600 JSR &FFF7 

2610 RTS 

9740 N 

9750 N...Insert new routines here 

9760 N 

9770 .endcode$ 

9780 ] 

9790 NEXT 

9800 PRINT"Help address table starts at 
&";^helptable$;"." 

9810 PRINT"Routine address table starts 
at &";”comtable%;"." 

9820 PRINT"First free byte after m/c: & 
"7 ^endcode$; "." 

9830 END 

9840 : 

9850 DEFFNequb (byte$) 

9860 ?P$-byte$ 

9870 P%=P%+1 

9880 -I$ 

9890 : 

9900 DEFFNequw (words) 

9910 ?P%=word% MOD 256 

9920 P$?l-wWord$ DIV 256 

9930 P%=P%+2 

9940 =I% 

9950 : 

9960 DEFFNequs (string$) 

9970 $P%=string$ 

9980 P%=P%+LEN (string$) 

9990 =I% 


The program as it stands has only one 
routine appended to it, to illustrate how 
this is done. The routine runs from line 
2540 to 2610 with the *HELP text first at 
line 2540. It performs the simple task of 
setting function key Ø to list Basic 
programs in paged mode. The command used 
for this is *L. It will also respond 
correctly to the various forms of *HELP 
commands. Typing just "HELP (or  *H.) 
displays the names of all ROMs in the 
machine, including this ROM. Its name is 
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determined by the string assigned to the 
variable '"'title$' in line 190, i.e. 
'MYROM'. The title can be changed, but it 
should be made up of letters only. If you 
now type *HELP MYROM (or any abbreviation 
down to *H.M.), you will get the complete 
copyright message as made up from lines 
1ØØ to 130 and a list of the commands that 
the ROM understands, at present only  'L'. 
You can then type *H.L, and you will see 
an explanation of the command *L as given 
in line 2540. 


USING THE PROGRAM IN SIDEWAYS RAM 

Type in and load Program l, alter line 
30 to read: 30 assemb$-8&8000 (enables 
direct assembly into sideways RAM), and 
save it. Run the program and press the 
Break key when assembly has finished. Type 
'OLD' to regain your Basic program, and 
then you are ready to test the machine 
code by typing the various forms of *HELP, 
or *L followed by key fÜ. Once the program 
works correctly in RAM, you can change 
line 30 back to its original state (set 
assemb$ to SCHO) and run the program 
again. Then *SAVE the machine code from 
address &5C00 up to address  &7BFF (using 
'*SAVE code 5CØØ 7BFF'). Subsequently, 
this code can be *LOADed back into 
sideways RAM at &8000 using *LOAD code 
8000. 


1 REM PROGRAM 2 
2 REM VERSION B0.1 
3 REM AUTHOR J.P.JAKUBOVICS 
4 REM BEEBUG NOVEMBER 1985 
5 REM PROGRAM SUBJECT TO COPYRIGHT 
6: 
18 DIM str% 255 
20 REPEAT 
30 INPUT LINE $str$ 
40 IF MIDS ($str$,2,2)-"H." THEN A$-9: 
D%=str%+3 ELSE A%=4:D%=str%+1 
50 v$-0 
60 ?&F2=D% MOD 256 
7Ø ?&F3=D% DIV 256 
88 CALL &5C03 
90 UNTIL FALSE 


TESTING THE SIDEWAYS ROM CODE 
Type in both Program 1 and Program 2 
and save them to tape or disc. 


Load Program | and change the value of 
dest% in line 40 from &8000 to &5CØØ and 
then run the program. Now type PAGE-859000, 
followed by NEW, and load and run Program 
2. In response to the question mark, enter 
any command to which the ROM program 
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should respond, although as it's really in 
RAM *H. will only display the name of this 
ROM program. Note however that, for 
simplicity, Program 2 will only accept the 
abbreviation *H., not the full command 
name *HELP, If you are satisfied that the 
program works, press Break and then type 
OLD, Then alter dest% in line 40 back to 
&8000, run the program and *SAVE the 
machine code from &5CØØ to &7BFF. 


Whether you have paged RAM or not, you 
could now blow the machine code into an 
EPROM, though of course it will only be 
worth doing that when a few more routines 
have been added. 


ADDING ROUTINES TO THE PROGRAM 

New routines, including the 
corresponding help messages, can now be 
added. New instructions should be typed 
with line numbers 2620 onwards. To insert 
a help message, use the function FNequs, 
as on line 2540, or for Basic II users 
just EQUS. The end of the message should 
be marked with a BRK instruction. The 
message should not include the command 
name, as this is automatically printed 
out. The routine must terminate with an 
RTS instruction. In order for the help 
message and the routine to be recognised, 
they must be correctly labelled. For a 
routine that responds to *A, the beginning 
of the help message must be labelled 
'.help$(0)' and the entry point of the 
routine (i.e. the first instruction to be 
executed) must be labelled '.com$(0)'. If 
the command is to be Sp, the labels should 
be '.help$(1)' and '.com$(1)', and so on. 
In fact, the help messages and routines 


*FX VALUES - Eric Pope 


To find the current values assigned to FX calls 166 to 255 use PRINT? (n*400) 


n is 


NEE 


can be in any order from Line 2620 
onwards, provided they are correctly 
labelled and terminated (with BRK and RTS 
respectively). 


The code in Program 1 can even decode 
commands that have one or more arguments. 
When execution reaches the entry point of 
any routine appended to the header, the 
accumulator will contain the ASCII code of 
the first non-space character that follows 
the command, and the Y register together 
with &F2 will point to the next character 
after that. If the accumulator contains 
any character other than a carriage return 
(&@D), then there is at least one argument 
after the command. Fram then on, it is up 
to your routine to identify the arguments 
and respond to them as appropriate. 


A NOTE ON MEMORY USAGE 

The routines appended to the header 
may use any memory location without 
interfering with the working of the 
header. However, if you are not careful in 
the way your routines use memory 
locations, you may find that your ROM 
Software interferes with other ROMs in the 
machine. You can safely use &6A-&6F in all 
circumstances, because these locations are 
protected by the header. If you need more 
workspace, then save its contents on the 
stack at the beginning of your routine, 
and restore it again just before exiting. 
Don't, for example, assume that locations 
&70-&8F are always safe to use. This is so 
only if you call your routines from Basic. 
If you want to call them from other 
languages, such as Wordwise, then &70-&8F 
may not be freely available. 


d 


where 


the FX number concerned. E.g. at switch on, PRINT?(610) will produce the value 


zero as sound is enabled (*FX210,0) at switch on. 


QUICK LINES - Roger .Burg 


Horizontal lines can be produced three times faster than the usual DRAW by clearing 


a graphics window of zero height. Note, however, that you must not try this with 
that protrude beyond the screen boundaries. 


lines 


DEFAULT VECTOR VALUES - Geoff Smith 


To find the default values of the various indirection vectors used by the Operating 


System, the following function can be used. 


oldval-V$!(!&FFB7-&200)AND &FFFF 


where V$ is the address of the vector required in the range &200 to &235. 
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st 


course 


Print J.Pike introduces a 
Fons g ‘PRINT USING’ of 
(part 2) 


@% variable. 


When printing numbers across the page 
or in a table, we often want to print the 
numbers compactly and also ensure that 
they cannot overflow their allotted space. 
Last month we looked at the formats 
available for printing numbers using @%. 
This is a special variable in BBC Basic 
which can be used to produce a variety of 


print formats. The disadvantage of all 
these formats is that the number can 
overflow its field for some values of that 
number. This has serious implications in a 
table of numbers because all the 
subsequent numbers along the row are 


pushed out of position. 


We can overcome this difficulty by 
defining the following set of properties 
for a new format to supplement those 
available using 0%. 


(1) Numbers are represented 
specified number of characters. 


using a 


(2) Numbers requiring less characters in 
their representation than the number 
specified have spaces added to the left of 
the number until (1) is satisfied. 


(3) The decimal point position can be 
fixed and numbers are rounded if they need 
to be truncated. 


(4) Numbers which cannot be represented 


with the fixed decimal point position are 
represented if possible with the decimal 
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Following last month's 
discussion on the 
printing of numbers, 


command, much easier 
to use than Basic's own 


point to the right of the 
specified position. 


(5) Numbers which still 
cannot be represented cause 


asterisks (or some other 
overflow symbol) to be 
printed. 

A further property 
that the format needs is 
that it must be easy to 


remember and to program. 
That is, the format needs 
to be defined either as an 
extension to @% or to use a 
simple self-evident system 
specification. The 
system most suited to fixed 
length | numbers is one 
Similar to the PRINT USING 
instruction used in some 
other versions of Basic. In 
such a system, for example, 
a five character number with two decimal 
places is defined by using the string 
WHE **" or similar. 


The new format is introduced into BBC 
Basic as the function FNUSING listed below 
(extra spaces have been added here to 
improve readability): 


DEF FNUSING (format$,number) 
LOCAL numb$,space$,D$,L$,Q$ 
numb$=STRS (number) 
IF number>Ø AND ASC (format$) =45 
THEN space$=CHR$32: 
format$=MIDS (format$, 2) 
L3=LEN (format$) 
D$-INSTR (format$+CHR$32,".") 
IF D$ THEN @%= (66Ø48+1%-D%) *256 
ELSE number=INT (number+.5) 
IF INSTR (numb$ , "E") 
THEN =space$+format$ 
IF INSTR (numb$+".",". ")>L%+1 
THEN =spaceS+formatS 
format$=numb$ 
IF LEN (format$) >L% 
THEN =spaceS+LEFTS (format$,L$) 
=space$+RIGHTS (STRINGS (L$," ") 
+format$ ,L3) 
This function implements the format 
properties given above by returning a 
string of length LEN(formatS), which 
contains the number formatted as defined 
by format$. The number may thus be made to 
occupy an exact position on the page (or 
Screen) by preceding it with a TAB 
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command. For example Che command: 
PRINT TAB (18) FNUSING ("**,**" number) 


will print number with characters in 
positions 18 to 22 and no other. 


Note that by making @% a local 
variable (in line 9910 of the function 
definition), any value already assigned to 
@ remains unaffected when using the 
function. In line 9030 a useful extra 


feature is introduced into the format. By 
preceding the format string in format$ 
with a negative sign, the number when 
printed is preceded by a space for 


positive numbers and a negative sign for 
negative numbers. Without this option the 
maximum positive number which can be 
represented numerically has 1Ø times the 
magnitude of the largest negative number 
because the negative sign replaces the 


most significant digit. Line 9040 sets L% 
to the string length of format$. After 
this, the string length of FNUSING is now 


given by LEN (spaceS+formatS) . 


The variable D% is set to one more 


than the number of digits in front of the 
decimal point. However, if format$ does 
not contain a decimal point (e.g. 


format$="***" for a 3 digit integer) then 
D$ is set to zero. The extra space added 
to format$ here is to avoid any 
possibility of  incurring the fatal INSTR 
bug described on page 281 of the User 
Guide. Line 9060 ensures the appropriate 
rounding of the number, either by setting 
@ to a fixed format or rounding integer 
formats directly. Lines 9070 and 9080 set 
FNUSING-format$ if the number cannot be 
represented, returning the format 
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definition string instead of a number. The 
character representing a digit in formatS 
does not have to be *. Other characters 
can be used, which permits some control 
over the overflow display. Note, however, 
that the sign of the number will still be 
correctly indicated if the first character 
of format$ is given as a negative sign. 
Lines 9090 and 9100 set up numbers when 
the decimal point has to be put to the 
right of the specified position, leaving 
line 9118 to format the numbers which are 
in range. 


A typical integer 
format$ might be "***", which would print 
numbers in the range -99.5 to 999,4999 as 
integers, or alternatively formatS="—***" 
which prints numbers in the range -999.5 
to 999.4999 as integers. For decimal 
numbers format$="**,**" prints numbers in 
the range -9.995 to 299.9949 using 2 
decimal places, -99.95 to 999,9499 using 1 
decimal place, -999.5 to 9999.4999 using 
the decimal point as the fifth character 
and -9999.5 to 99999,4999 as a 5 digit 
integer. Numbers outside this range are 


printed as the string format$, that is as 
MAAN 


format string for 


If we set format$=" " then all the 
numbers print as before except that 
numbers which try to overflow the allotted 
space are now indicated by a single point. 
A more novel use of this facility is given 
by format$="-Ø1.E3" which gives a value to 
FNUSING of 1000 or -1000 to numbers 
outside this range. In addition, 
format$-"-,***" where the decimal point is 
to the left of all the asterisks, gives 
numbers with the maximum accuracy within 
the space available (but preceded here by 
a single space or negative sign). Using 
this format definition, 8 columns of 
numbers can be printed across the screen 
(in 40 character modes). For example: 


109 number=1/2"10 

110 REPEAT 

128 number=1 .2*number 

130 PRINT FNUSING ("-.***", number); 
148 UNTIL number>1.ØE1Ø 


Using a function like FNUSING will 
make all your formatting much easier to 
follow. It also shows how defining your 


own function actually makes programming 
much easier. Why not try out FNUSING in 
some of your own programs? 

"tel 
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Generating 
Diagrams 
and 
Drawings 


Scorning the drawing 
board, Geoff Bains tries 
out two software packages 
to produce tidy and accur- 
ate diagrams on his Beeb. 


No-one can have failed to notice the 
potential of computers for CAD and other 
drawing operations. Whereas full technical 
drawings are really beyond the BBC micro, 
this computer can excel in the production 
of diagrams. 


For these purposes, a 'diagram' is a 
drawing made up of specialized symbols 
arranged on, and connected to, horizontal 
and vertical lines. Unlike a 'picture' 
there are no circles or arcs, excepting 
those contained within the symbols. The 
classic example is an electrical circuit 
diagram. However, flowcharts and arch- 
itects' plans, for example, also fit into 
this category. Because of the constric- 
tions, diagrams are not easily produced 
using 'normal' Beeb drawing packages. 
However, there are a few packages 
especially written for this purpose - 
BEEBUGSOFT's Design, for example. Here we 
look at two that prove to be a boon to 
anyone wanting neat and accurate diagrams. 


Product : Cirkwik 
Supplier : Datapen Microtechnology Ltd. 
Kingsclere Road, Overton, 
Hampshire RG25 3JB. 
0256-770488 
Price : £24.95 (disc only) 
This diagram package is primarily 


intended for use with Datapen's light pen 
(costing £25). However, it will also work 
with the Marconi trackerball (about £60). 


There are three main functions to the 
package. Firstly, there is a symbol 
designer to create your Specialized 


symbols. Cirkwik limits these to 16 by 16 
pixels in size but, as you can use 640 
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different symbols in one diagram you are 
not restricted from making up big symbols 
from several parts. However, any letters 
needed must also be specially defined. 


Cirkwik is clearly intended for 
circuit diagram production and several 
electronics symbols are supplied on the 
disc. You can create your own easily 
enough using the symbol editor. This is 
very much like the numerous character 
definers available for the Beeb. The light 
pen is moved across a large l6 x 16 grid 
and individual pixels toggled on or off. 
The whole package is only concerned with 
two colours, so, although this editor is 
very simple it is reasonably effective. 


The second part of the package is the 
diagram editor. A single diagram comprises 
up to eight mode 4 screens, each created 
and accessed separately and joined 
together at the printing stage. Across the 
top of the screen is a menu. This allows 
you to toggle (using the light pen) 
between drawing lines and placing symbols 
on the diagram. Lines are drawn much in 
the same way as they are on any Beeb 
drawing program, by  'rubber-banding'. 
However, the difference here is that the 
final, fixed, line is only printed 
horizontally or vertically. Stray lines 
are juggled into place by the program. 


The symbols, too, are positioned onto 
the diagram using the menu at the top of 
the screen to select the desired symbol 
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Part of a ‘Diagram’ diagram. 
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from those you have designed earlier. 
Alternatively you can design as you go, as 
the symbol designer is available, without 
the loss of your diagram, at any time. 


The positioning of the symbols and 
lines is achieved with the light pen in a 
rather peculiar manner. The light pen 
circuitry in the Beeb can only resolve the 
pen's position to one character width 
accuracy. To accurately align the symbols 
and lines on the diagram using the light 
pen, first the symbol/line is roughly 
aligned and the pen button pressed. Then 
the pen is moved in the direction that the 
symbol/line needs to go and the symbol is 
slowly dragged into position. A final 
press of the pen button fixes it there. 


The final part of the package is the 
printer driver. The package is designed 
for Epson compatible printers but there is 
the facility to insert the relevant codes 
for a different printer. 


Overall the  Cirkwik package does 
provide a reasonably comprehensive diagram 
producing facility. However, the mixture 
of the use of lightpen and keyboard and 
the inherent inaccuracy of the lightpen 
(even with 'dragging') mean that this 
package is never too easy to use and 
positively frustrating at times. 


Product : Diagram 
Supplier : Pineapple Software 
39 Brownlea Gardens, 
Seven Kings, Ilford, Essex. 
Price : £25 (disc only. Includes 
version for sideways RAM.) 
Pineapple's Diagram is a similar 
package to Cirkwik but vastly more 


sophisticated and friendly. The diagrams 
are displayed and edited in mode 0. A 
single diagram can contain up to 39 
Screens. As if this wasn't enough you can 
scroll around the whole diagram and edit 
any screenful you want. This makes lining 
up the various sections of the diagram 
much easier. 


Like Cirkwik, Diagram has a symbol 
editor for symbols up to 32 x 24 pixels in 
size. There is no limit to the number of 
symbols allowed with each diagram, 
excepting that these must comprise no more 
than 128 character blocks (8 x 8) in 
total. However, the ability to transfer 
symbols, either individually or in groups, 
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from one diagram to another means that 
this restriction does not normally worry 
too much. The symbol editor is again 
fairly standard. The cursor keys are used 
to move around the grid of pixels. The 
space bar fills a pixel and Shift empties 
it. A nice feature is the ability to wipe 
the whole symbol if wanted. 


Creating and editing diagrams is also 
much easier with Diagram. A full mode 9 
screen is used. A symbol menu covers a 
small section at the bottom but this can 
be removed if you want to draw something 
in this area. Symbols are placed on the 
screen by selecting the desired symbol 
from the menu, moving the cursor to the 
required position and pressing Return. 
Simple. Alphabetic characters are 
positioned in a similar way but the 
alphabetic keys on the keyboard are used 
to actuate them with no loss of special 


symbols. 


Lines are drawn in a very strange but 
highly versatile way. When put into Line 
mode the cursor will leave a trail as it 
is moved across the screen. This restricts 
the lines to character positions but then 
this is what diagrams are all about - the 
drawing following a grid pattern. If the 
space bar is pressed, as a line crosses 
another, then a blob is left at the 
junction to show, for example, wires in a 
circuit diagram joined and not just 
crossing. The lines are made up of symbols 
too. The first 16 symbols are 
ready-defined as horizontal, vertical, 
crossed, joined, and bent lines, with and 
without joining blobs. These are 
automatically printed as needed as the 
cursor is moved around the screen in line 
drawing mode. The advantage of having the 
line made up of characters is that these 
can be altered so that line drawing 
produces, say, double lines. 


Diagram also has an Epson 
facility and the ability to produce 
further codes. Any of the 39 screens can 
be printed in various sizes. This is done 
not as a screen dump but directly from the 
character information stored on disc. 


printing 


Diagram does take a little getting 
used to, as do all full packages. However, 
after a few practices it is a joy to use. 
Everything is menu driven and it almost 
seems to take care of itself. Full marks 
for an excellent product. =] 
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Quasimodo 


Jonathon Temple 


micro. 


Quasimodo's sweetheart, Princess 
Esmeralda, has been imprisoned in the 
wicked Baron's fortress. Can you, 
Quasimodo the hunchback, save her from 
the Baron's evil clutches? 


Before being re-united with your 
love you have to tackle eleven screens, 
but what with those cruel guards 
throwing rocks and arrows at you and 
those tricky swinging ropes it's going 
to be difficult. 


You guide Quasimodo using the Z and 
X keys for left and right, and Return 
to jump. You can 'freeze' the game by 
Dressing Ctrl. Pressing Shift will 
restart it again. 


Quasimodo has the usual computer 
character's quota of three lives, one 
of which he will lose each time he 
misjudges a jump or is hit by a rock or 
arrow - all common occurrences when you 
first begin to play. 


To complete a screen, Quasimodo 
must jump up to the bell rope and ring 
the bell. He is then awarded a bonus, 
the size of which depends on the 
current screen and how long it took him 
to complete it. After the llth screen 
Quasimodo gets to meet his princess for 
one brief moment (Ahhh...) and then 
he's whisked away back to the start to 
try again. 


Entering the program is 
straightforward enough - just type it 
in and away you qo. Disc users, 
however, will need to miss out any 
unnecessary spaces and the 
instructions, or set PAGE to &12ØØ 
(type PAGE=&1200) before loading the 
program - if you choose the latter 
course remember not to press Break as 
this will corrupt the program. 


PROGRAM NOTES 
The data for the eleven screens is 
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rings the 
changes with this colourful 
eleven screen game for the BBC 


held in lines 2840-2890, with four 
numbers for each screen. The first 
number represents the type of screen 
where: 


Ø - is a flat wall; 

1 - represents turrets; 

2 - is a pit with a rope and 

3 - is a pit with platforms. 

The next three numbers represent 
the chance of an arrow, rope and 
boulder appearing respectively. If Ø, 
it will not appear on that screen. 


The chance is decided using 
RND (<number in data>). If this is equal 
to 1 a new arrow or boulder is made to 
appear. So that the arrows and boulders 
come at the same time and position at 
each go, making it easier to plana 
route through each screen, the RND 
function is seeded using 
RND (-<number>). This means that the 
numbers produced will be the same every 
game. 


However, if Quasimodo should reach 
Esmeralda, when he starts again the 
seed (the variable RS%) for RND is 
changed, which means that in some of 
the screens the player will have to 
learn a new route. 


Jumping is achieved by having two 


arrays, A%(6) and B%(6), the data for 
which is in lines 2820-2830. A 
variable, J%, is decreased as Quasimodo 
leaps through the air, and this is used 
to obtain two values from these arrays 
which are then added to Quasimodo's X 
and Y co-ordinates. By changing the 
values in these two lines it would be 
possible to get Quasimodo to jump 
further - useful for cheats! 
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A useful procedure included in the 
program is PROCtriple, which when 
called with PROCtriple(X,Y,C,A$) will 
print the string AŠ at tab position X,Y 
in colour G in  triple-height 
characters. local variables are used 
for this procedure, so it can be lifted 
straight out and used in your own 
programs. 


The chiming sound used when 
Quasimodo rings a bell is taken from 
Ian  Waugh's excellent series of 
articles, ‘Making Music on the Beeb' 
(BEEBUG Vol.3 No.8 to Vol.4 No.2). 


> 


1Ø REM PROGRAM QUASIMODO 

20 REM VERSION B1.4 

30 REM AUTHOR J. Temple 

40 REM BEEBUG  NOVEMBER 1985 

50 REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

100 *TV 255 

110 ON ERROR GOTO 2930 

120 MODE 1 

130 PROCinst 

140 PROCchars 

150 PROCinit 

160 REPEAT 

170 L%=3:5%=Ø:K%=1:RS3=3 

180 REPEAT 

198 MODE 2 

200 PROCscreen 

210 REPEAT 

220 PROCman 

230 IF F$ PROCrope 

240 IF P$ PROCarrow 

250 IF M$ PROCboulder 

260 UNTIL E$ 

270 IF E$-1 L$-L$-1:SOUND Ø,1,5Ø,1 ELS 
E PROCbonus 

280 UNTIL L$-0 

290 IF L$-0 PROCkilled 
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300 UNTIL FALSE 

310 : 

1000 DEFPROCman 

1010 Z%=Z%-5:VDU 4,31,6,0 

1020 IF Z3>-1 PRINT ;Zz$;" Es 

1Ø3Ø VDU 5:A%=X%:B%=Y%:C%=V%:D%=W% 

1040 IF INKEY-2 REPEAT UNTIL INKEY-1 

1959 IF INKEY-74 IF J$*JF$-0 J$-6:N$-(I 
NKEY-98)- (INKEY-67) : SOUND 1,1,1Ø,5 

1Ø6Ø JF$-0:IF J% PROCjump:ENDPROC 

1070 IF FS IF X%=6%-32 GOTO 1110 

1080 IF INKEY-98 IFX%>Ø X%=X%-32:W%=W% 
EOR 3:SOUND 18,-10,50,1:IF V%<>231 V$-23 
1:W$-233 

1090 IF INKEY-67 IFX%<1216 X%=X%+32:W%= 
Wb FOR 7:SOUND 18,-19,50,1:IF V%<>232 V% 
-232:W$-235 

1190 IF POINT (X%,Y%-64)=Ø IF POINT (X245 
6,Y%-64)=Ø E$-1:F$-0 

1118 IF D%<>W% GCOL3,6:MOVE A%,B%: 
%,10,8,D%:MOVE X$,Y$:VDU V%,10,8,W% 

1120 IF D%=W% FOR N=] TO 3Ø:NEXT 

1130 ENDPROC 

1140 : 

1150 DEFPROCjump 

1160 X%=X%+A% (J%)*N%:Y%=Y%+B%(J%) 

1170 IF X$-0 IF N$=-1 N$- 

1188 IF X$-1216 IF N$-1 N$-0 

1198 J$-J$-1:GCOL 3,6:MOVE A%,B% 

1200 VDU C%,19,8,D%:MOVE X%,Y% 

1210 VDU V$,10,8,W$:IF J$-0 JF$-1 

1220 IF X$-1216 IF Y$-668 E$-2 

1230 ENDPROC 

1240 : 

1250 DEFPROCrope 

1260 GCOL 3,7:MOVE 640,896:DRAW G$,604 

1270 G$-G$4H$:1F G$-320 OR G$-960 H$--H 


1280 GCOL 3,7:MOVE 640,896:DRAW G$,604 
1290 IF J$-0 IF ABS(G%-X%)<65 IF ABS (60 
4-Y$)«65 GCOL3,6:MOVE X%,Y%:VDU V$,10,8, 
W%:X%=G%-32:MOVE X$,Y$:VDU V$,10,8,W$ 
1300 ENDPROC 

1318 + 

1320 DEFPROCarrow 

1330 IF R$-0 GOTO 1400 

1340 IF ABS (23%-X%)<33 IF ABS (604-Y2)«33 
E$-1 

1350 GCOL 3,3:MOVE 0%,604:VDU 226 

1360 Q$-0$-32:MOVE Q%,6Ø4:VDU 226 

1370 IF Q$«-32 R$-0 

1389 IF ABS (Q%-X%)<33 IF ABS (604-Y%) <33 
E$-] 

1390 ENDPROC 

1400 IF RND(P$)-1 Q$-1216:R$-1:GCOL 3,3 
:MOVE 1216,604:VDU 226 

1410 ENDPROC 

1420 : 

1430 DEFPROCboulder 
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1440 IF U%=0 GOTO 1510 

1450 IF ABS (T%-X%) <33 IF ABS(672-Y%)<33 
E$=1 

1460 GCOL 3,6:MOVE T%,672:VDU 227 

1470 T%=T%+64:MOVE T%,672:VDU 227 

1480 IF T%>1216 U%=Ø 

1490 IF ABS (T$-X$)«33 IF ABS (672-Y%) <33 
E$=1 

1500 ENDPROC 

1519 IF RND(M$)=1 T$-0:U$-1:GCOL 3,6:MO 
VE 0,672:VDU 227 

1520 ENDPROC 

1530 : 

1540 DEFPROCkilled 

1550 VDU 4,28,2,26,17,20,12 

1560 PROCtriple(3,1,2,"GAME OVER") 

1570 PRINTTAB (1,5) "Press Spacebar" 

1580 REPEAT UNTIL GET=32 

1590 ENDPROC 

1600 : 

1610 DEFPROCbonus 

1620 SOUND 2,2,81,16:SOUND 2,2,81,16 
1630 FOR N=1 TO 3ØØ:NEXT:IF Z$«0 Z%=0 
1640 VDU 4,28,2,26,17,20,12 

1650 K%=K%+1:S%=S%+Z% 

1660 IF K$212 PROCcongrats:ENDPROC 

1670 PROCtriple(2,1,3,"BONUS - "+STRS (Z 
$)) 

1680 TIME=Ø:REPEAT UNTIL TIME>2ØØ 

1690 ENDPROC 

1709 : 

1710 DEFPROCcongrats 

1720 K3=1:VDU 26,12:1F RS$-3 L$-L$*l 
1730 PROCscreen 

1740 VDU 4,28,2,26,17,16,12 

1750 PROCtriple(3,1,3,"WELL DONE !") 
1760 VDU 26,5,18,3,5,25,4,960;636;231,1 
Ø,8,23Ø,18,3,6 

1770 FOR X%=Ø TO 864 STEP 16 

1780 MOVE X%,636:VDU V$,10,8,W$ 

1790 W%=W% EOR 7:MOVE X3+16,636 

1800 VDU V$,10,8,W3:FOR N=1 TO 40 

1810 NEXT, :PLOT 69,928,616 

1820 RESTORE 29ØØ:N=81:*FX 15,0 

1830 FOR T=] TO 10:READ A,D:N=N+A 

1840 SOUND 1,-15,N,D:SOUND 2,-1Ø,N+48,D 
1850 NEXT:TIME=Ø 

1860 REPEAT UNTIL TIME>2ØØ:VDU 4 

1870 PROCtriple(4,21,2,"Now try again") 
1880 COLOUR 5:PRINTTAB (7,25) "<SPACE>" 
1890 REPEAT UNTIL GET=32:RS%=RS3+1 

1900 ENDPROC 

1919 : 

1920 DEFPROCtriple(X,Y,C,AS) 

1930 LOCAL A$,N$,X$,Y$ 

1940 X$-8&70:Y$-0:A$-10:COLOUR C 

1950 FOR N$=1 TO LEN (AS) 

1960 ?&70-ASC (MIDS (AS,N$)):CALL &FFF1 
1970 VDU23,253,2871,2871,2871,2872,2872 
,2872,?8&73,?&73 
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GENTES DESERTO U Tq 


1980 VDU23,254,2873,2874,2874,2874,2875 
17875 ,2675, 7676 
1990 VDU23,255,2&76,?&76,?&77,2?&77,?&77 
,?&78,2678,2878 
2000 VDU 31,X4N$-1,Y,253,10,8,254,10,8, 


2010 NEXT 

2020 ENDPROC 

2030 : 

2040 DEFPROCscore (N3) 

2050 S$-S$4N$:VDU 4,17,7,31,6,1 

2060 PRINT LEFTS ("ØØØØØ",5-LEN (STRS (S2) 
)) *STRS$ (S3) 

2070 VDU 5 

2080 ENDPROC 

2090 : 

2100 DEFPROCscreen 

2118 VDU 4,17,1,17,135 

2120 FOR Y$-14 TO 28 

2130 PRINTTAB (0,Y$) STRINGS (20 ,CHRS$ (237 
*Y$MOD2)) 

2140 NEXT:VDU 17,128:RESTORE 2840 

2150 FOR N$-1 TO K$ 

2160 READ V%,P%,F%,M%:NEXT 

2170 IF V%=1 PROCturrets 

2180 IF V$-2 OR V$-3 PROCpit 

2190 IF V$-3 VDU 31,5,14,225,31,8,14,22 
5731,11,142,225;31:14,14,225 

2200 Z$-K$*100-400:PRINTTAB (Ø ,Ø) "BONUS: 
"; TAB (0,1) "SCORE: " 


2210 COLOUR7:PRINTTAB (6,0) ; Z$; TAB (2,26) 
"SCREEN: ";K$ 

2220 COLOUR6:IFL%>1 FOR X$-15 TO L%*2+1 
1 STEP 2:VDU 31,X$,0,232,10,8,235:NEXT 
2230 PROCScore (Ø) :D=RND (-RS$) 

2240 X%=Ø:Y%=636:V%=232:W%=235 

2250 E$-FALSE:J$-FALSE:JF$-FALSE 

2260 R%=FALSE:U%=FALSE:G%=32Ø:H%=32 
2270 VDU 18,0,6,25,4,1248;636;25,5,1248 
:888;18,3,3,25,4,1216;928;228,10,8,229,1 
8,3,6,25,4,X$;Y$;VS,10,8,W%,23;10,32;0;0 
70; 

2280 IF F% GCOL3,7:MOVE 640,896:DRAW G% 
,604 
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2290 ENDPROC 

2300 : 

2310 DEFPROCturrets 

2320 PRINTTAB (4,14)GS; TAB (9,14)GS; TAB (1 
4,14)GS 

2330 FOR X$-376 TO 1016 STEP 320 

2340 VDU 25,4,X$;568;25,0,0; -92;25,81,- 
32;0;25,0,0;60;25,81,32;32; 

2350 NEXT 

2360 ENDPROC 

2370 : 

2380 DEFPROCpit 

2390 FOR X$-3 TO 15 STEP 2 

2400 PRINTTAB (X%,14)GS; : NEXT 

2410 VDU 25,4,1080;568;25,0,0; -92;25,81 
,-32;0;25,0,0;60;25,81,32;32; 

2420 ENDPROC 


2430 : 

2440 DEFPROCinit 

2450 DIM A% (6) ,B% (6) 

2460 FOR N$-1 TO 6 

2470 READ A% (N%) ,B% (N%) : NEXT :RS%=3 

2480 GS=STRINGS (3,"  "4CHR$104CHRS$84CHR 
$8) 

2490 ENDPROC 

2500 : 

251Ø DEFPROCinst 

2520 VDU17,130,28,10,5,28,1,12,26 

2530 PROCtriple(11,2,1,"D UA S T M O D 
o") 

2540 VDU19,3,6;0;17,128,17,3,31,0,8 
2550 PRINT" In this version of the wel 
l-known"'"arcade game you must guide Qua 
simodo"'"through the eleven screens to h 
is"'"sweetheart, Princess Esmeralda."' 
2560 PRINT" Our hero must avoid the ar 
rows and"'"rocks the cruel guards are th 
rowing at"'"him, and use the ropes to sw 
ing across"'"the dangerous gaps."' 
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2570 PRINT" You should use the Z and X 
keys to"'"move left and right, and <Ret 
urn> to"'"jump. To complete each screen 
Quasimodo"'"must jump up to the bell rop 
e and ring"'"the bell."' 

2580 PRINT" <Ctrl> can be used to free 
ze the game"'"until «Shift? is pressed." 
' 


2590 COLOUR2:PRINT'TAB(5)"Press the SPA 
CE BAR to play..." 

2600 REPEAT UNTIL GET-32 

2610 ENDPROC 

2620 : 

2630 DEFPROCchars 

2640 VDU23,225,-1,-1,-1,239,193,0,0,0 

2650 VDU23,226,33,66,-1,66,33,0,0,0 

2660 VDU23,227,60,94,182,175,187,183,94 


2670 VDU23,228,24,36,24,44,44,44,94,94 
2680 VDU23,229,94,-1,129,126,0,0,0,0 
2690 VDU23,230,60,172,92,24,56,60,62,12 


2700 VDU23,231,56,124,76,38,194,70,60,2 


2710 VDU23,232,28,62,50,100,67,98,60,24 
2720 VDU23,233,60,118,118,110,60,24,24, 


2730 VDU23,234,60,110,118,118,60,24,60, 
2740 VDU23,235,60,110,110,118,60,24,24, 
2750 VDU23,236,60,110,118,118,60,24,60, 


2760 VDU23,237,-3,-3,=3,=3,=3,=3,.=3,0 
2770 VDU23,238,223,223,223,223,223,223, 


2780 ENVELOPE 1,133,8,4,8,3,1,1,126,0,0 

,-18,126,0 

2790 ENVELOPE 2,4,0,0,0,0,0,0,126,-1,-1 

,-1,80,0 

2800 ENDPROC 

2810 : 

2820 DATA 

2830 DATA 3 

2840 DATA Ø 

2850 DATA 2 

2860 DATA 0 

2870 DATA 2 
1 
3 
Ø 
4 


Ø,-16,32,-16,32,-16 


2880 DATA 
2890 DATA 
2900 DATA 
2910 DATA 
2920 : 
2930 MODE7:PRINT'':REPORT 

2940 PRINT " at line ";ERL 

2950 END el 
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CONTRIBUTING TO BEEBUG 
PROGRAMS AND ARTICLES 


We are always seeking good quality 
articles and programs for publica- 
tion in BEEBUG. All contributions 
used are paid for at up to £40 per 
page, but please give us warning of 
anything substantial that you 
intend to write. A leaflet, ‘Notes 
of Guidance for Contributors’ is 
available on receipt of an A5 (or 
larger) SAE. 

In the case of material longer than 
a page, we would prefer this to be 
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machine readable form using 
"Wordwise", “View”, or other 
means, but please ensure an 


adequate written description of 
your contribution is also included. 
If you use cassette, please include a 
backup copy at 300 baud. 

HINTS 
There are prizes of £5 and £10 for 
the best hints each month, plus one 
of £15 for a hint or tip deemed to 
be exceptionally good. 
Please send all editorial material to 
the editorial address above. If you 
require a reply it is essential to 
quote your membership number 
and enclose an SAE. 
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Send all applications for membership, subscription renewals, subscription 
queries and orders for back issues to the subscriptions address. 
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£ 6.40 6 months (5 issues) UK ONLY 
£11.90 UK - 1 year (10 issues) 

£18 Europe, 

£23 Americas & Africa, 


BACK ISSUES 
(Members only) 


£21 Middle East 
£25 Elsewhere 


Volume sets 
(10 issues) 


Single 
issues 


90p 
£1 
£1.20 
£1.20 


Please add the cost of post and packing as shown: 


First 
DESTINATION issue 
UK 30p 


Each 
subsequent 
issue 


Europe 
Elsewhere 


All overseas items are sent airmail (please send a sterling cheque). We will 
accept official UK orders but please note that there will be a £1 handling 
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VAT on magazines. 


Back issues are for members only, so it is ESSENTIAL to quote your 
membership number with your order. Please note that the BEEBUG 
Reference Card and BEEBUG supplements are not supplied with back 
issues. 


Subscriptions, Back Issues & 
Software Address 


BEEBUG 
PO BOX 109 
St. Johns Road 
High Wycombe HP10 8NP 


Hotline for queries and software orders 


St Albans (0727) 40303 
Manned Mon-Fri 9am-4.30pm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 


Penn (049481) 6666 


If you require members’ discount on software it is essential to quote 
your membership number and claim the discount when ordering. 


DYNAMIC DiSCS 


TESTED BY BEEBUG 


Orders for 
25 are 


delivered 
Orders for in strong 
10 discs are plastic 
sent in Storage 
box 


with 4 dividers. 


black plastic 
library cases. 
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Orders for 
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OX 
with 4 dividers. h 
e t 

"Sc manufacturers, `" Only by Beebug but by One of th 
e 


UK's top 


We regret that we have These discs are the best. Official orders are 
had to pass on a slight Please use the enclosed welcome. 


increase in the price of order form and order 
our discs, but we are from our usual address. Barclaycard and Access 


now able to offer a wider BEEBUG PO BOX 109 telephone 0494 81 6666 


St. Johns Road Further information 


range to meet your exact 
High Wycombe HP10 8NP. telephone 0727 60263 


requirements. 
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DISC CONTENTS 


RECURSIVE TREES — displays for the armchair gardener 
DYNAMIC MEMORY WINDOW — an eye into your Bech as 
it runs your programs 

WORDWISE PLUS EXAMPLES — segment programs from 
the series 


LOAN REPAYMENT — calculate how much you owe 
EPROM PROGRAMMER DRIVER — blow your own 
WORKSHOP PROCEDURES — text compression 
DISC MENU EXTENSIONS — the complete disc menu ee > 
program with all the extensions lot i Í Å 
DATA STRUCTURES — linked lists and binary trees + YA Ev Å 
ROULETTE — spin the wheel and break the bank eg) 
EXTRA FEATURES THIS MONTH \ | 
DISC BENCHMARKS — test out your drives with the 
program used for the DDFS review 

3D GRAPHICS SYSTEM DEMO — a fast moving display 


l 
| Renove hidden lines? y/n): 


from Glentop’s graphics package 


BEEBUG Filer 


All this for £3.00 (cass) £4.75 (disc) +50p p&p. 
Back issues (disc since Vol. 3 No. 1, cass since Vol. 1 No. 10) available at the 


same prices. 
Subscription rates DISC CASS DISC CASS 
UK UK O’seas O'seas 
6 months (5 issues) £25 £17 £30 £20 
12 months (10 issues) £50 3353 £56 £39 


Prices are inclusive of VAT and postage as applicable. Sterling only please. 


Cassette subscriptions can be commuted to disc subscription on receipt of 
£1.70 per issue of the subscription left to run. 


All subscription and individual orders to 
BEEBUG, PO BOX 109, St. Johns Road, High Wycombe HP10 8NP 


Printed in England. DCL 11532 


Magazine Cassette/Disc 


Hidden Line Removal 


INDEX 


Advertising in BEEBUG 
BBC Micro User 
Classified Ads 

Events 

High Scores 

UK Bulletin Board 


ADVERTISERS 


Addictive Games 
BBC Micro User 
BEEBUGSOFT 


Datapen 

Electronequip 

Lee Computers 

Normandie Trading 

Opus 15, 16, 17 
R & D Electronics 10 É 
Star Software (ER 


ES ER TEEN 


BEEBUG SUPPLEMENT 


We offer a full service for members who wish to upgrade their Beebugsoft products from 
cassette to disc, disc to Rom etc., or to the latest version (e.g. Masterfile | to Masterfile II). 
To take advantage of this service please return your original program along with your 
order and remittance, deducting the following amounts from the price. (The amounts 
shown should be deducted from the full price, before calculating members discount). 
Send all orders to the usual High Wycombe address. 


Product Discount 
e Masterfile | (disc) to Masterfile H (disc) £9.50 
e Masterfile | (cass) to Masterfile II (disc) £5.00 
€ Exmon I (cass) to Exmon Il (Rom) £5.00 
€ Exmon (Rom) to Exmon Il (Rom) £13.50 
e Sleuth (Rom) to Sleuth 1.06 (Rom) *[see below] £19.00 
€ Spellcheck I (disc) to Spellcheck Il (Rom + disc) £9.50 
e Paintbox (disc) to Paintmaster [Paintbox II] (disc) £6.00 
e Paintbox (cass) to Paintmaster [Paintbox II] (disc) £5.00 
e Design (cass) to Design (disc) £5.00 
€ Dumpmaster (cass) to Dumpmaster (disc) £5.00 
e Hershey Characters (cass) to Hershey Characters (disc) £5.00 
e Quickcalc (cass) to Quickcalc (disc) £6.50 
® Sprites (cass) to Sprites (disc) £5.00 
€ Starter Pack (cass) to Starter Pack (disc) £6.50 
e 


Teletext (cass) to Teletext (disc) £5.00 


The Sleuth upgrade is for owners of versions prior to 1.06 who wish to purchase the 
enhanced Sleuth which now also features: 


1. The ability to enter Sleuth directly from any stage of your own program. 
e.g. IFD% = 10 THEN'SLEUTH or ON ERROR *SLEUTH. 


2. Thenew command ‘OUT’ to exit Sleuth and continue running your program from the 
current line. 


3. Dual screen workspace located in sideways Ram. 
4. Variable update now includes arrays. 
5. . Aries B-20 and Watford 32k Ramcard compatibility. 


* See above for details on how to upgrade to the new Sleuth. 


WORDWISE PLUS IS A WORDPROCESSOR WITH 
GREAT POTENTIAL — FULFIL THAT POTENTIAL WITH 
WORDEASE. 

WORDEASE CONTAINS A HOST OF UTILITIES ALLOWING 
YOU TO STREAMLINE WORDPROCESSING WITH 
WORDWISE PLUS. MORE THAN THIS IT PROVIDES A 


WORDEASE 


<C> Beebugsoft 1985 


Auto-Version Save 
Basic Status 
Copy: Segment to Segment 


isc Menu 
Edit Text/Segnent 
Function Key Display 
Gen Utils (Strip^Renumber^align? 
Hardcopy Codes 
Individual Symbols 
Standard Page Handler 
Program Utils (Analyse/Compact> 
Label Printer 
Mail Merge 


LP 
B. 
C. 
D. 
E. 
F. 
G. 
H. 
r. 
J. 
K. 
L. 
M; 


EXIT to Text Text= TXTname 


Seg8= Empty 


m 
Wipe Seg^Text 


@ Change Drives Util=0 Other=1 


Select Option à 


AUTOMATICALLY SAVES YOUR TEXT WITH SELF- 
INCREMENTING VERSION NUMBER. 


REPORTS ON THE STATUS OF EACH SEGMENT, 
SHOWING CONTENTS AND MEMORY USAGE. 


COPY A FILE FROM SEGMENT TO SEGMENT, 
ALLOWING ‘OVERWRITE’, ‘TO CURSOR’ OR 
‘MARKED SECTION ONLY’. 


AUTOMATICALLY READS DISC TO PROVIDE A 
DETAILED MENU OF YOUR FILES. PRESS A KEY 
TO LOAD FILE OF YOUR CHOICE. 


TEXT EDITING AID — GIVES A WINDOW ONTO 
TEXT AREA WITH INSTANT SEARCH AND 
REPLACE OPTIONS. 


THE WORDWISE PLUS UTILITIES DISC 


NUMBER OF SPECIAL APPLICATIONS — SUCH AS MAIL 
MERGING AND LABEL PRINTING, IN ADDITION TO 
PROGRAMMING UTILITIES, SUCH AS THE VARIABLE 
LISTER AND POWERFUL COMPACTING ROUTINES, WHICH 
SQUASH REMS, SPACES, LABELS AND KEYWORDS. 
SUPPLIED ON A DUAL 40/80 TRACK DISC. 


DISPLAY AND EDIT THE CONTENTS OF THE 
FUNCTION KEYS. 


A SET OF GENERAL UTILITIES INCLUDING AN 
EMBEDDED COMMAND REMOVER, AN INDENT 
FACILITY, A SECTION RENUMBERING ROUTINE 
AND AN ALPHA SORT. ; 


AUTOMATICALLY ADD PRINTER CODES TO 
YOUR TEXT AT THE PRESS OF A KEY: 
UNDERLINE, ENLARGE, CONDENSE, ETC. 


PREDEFINED SYMBOLS (ARROWS, COPYRIGHT, 
SCISSORS ETC.) AUTOMATICALLY ADDED TO 
YOUR TEXT. 


AUTOMATICALLY MAINTAIN AND LOAD A 
LIBRARY OF STANDARD PAGE SETTING OR 
LETTERS. 


PROGRAMMING UTILITIES (FOR WORDWISE 
PLUS PROGRAMMERS) INCLUDING PROGRAM 
SQUASHER, VARIABLES DISPLAY AND 
PROGRAM DE-CRUNCHER. 


FLEXIBLE AND EASY TO USE MULTI-FORMAT 
LABEL PRINTER. 


POWERFUL MAIL MERGE ROUTINES FOR 
SENDING PERSONALISED STANDARD 
LETTERS. 


WORDEASE FROM BEEBUGSOFT — £21.50 inc. VAT and POSTAGE 


Please send me ........... WordEase @ £21.50 


Debit my Access/Barclaycard with £ 


Name No. 


LEE Op TE: 


Address 


Telephone credit card orders 0494 816666 24hrs. 
Telephone for further information 0727 40303. 


BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. HP 10 8NP 


| MEMOREX DISC cS 


“FROM BEEBUGSOFT | 


Memorex discs are extremely 
reliable and ideal for use with 
the BBC Micro. They have 
performed well in use at 
Beebug and we are pleased 
to recommend them and offer 
them at a reduced price. 


"2481 — — Memorex 5.25 inch single sided, soft 3501 — Memorex 5.25 inch double sided; soft ^^ 
|: sectored, double density, 48 tpi disc, with hub sectored, double density, 96 tpi disc, with hub ` 
` fing. Suitable for 35 or 40 track systems. ring. Suitable for 77 or 80 track systems. 
BOX OF 10 — save £9.31. Normal price £24.81. BOX OF 10 — save £16.01. Normal price £41. 51. 
«Members Price £15.50. Members Price£25.50. ` 


Prices include VAT but not postage. Please add £0.60 for the first box and £0.40 for each subsequent box. 
Overseas orders (including Eire): Calculate U.K. price, including postage, then deduct 15% VAT and add £2.00 per box. 
Please.send a cheque with order and membership number to, BEEBUGSOFT, PO Box 109, High Wycombe, Bucks HP10 8NP 


_ATPL’s SIDEWAYS ROM EXPANSION BOARD 
Normal Price £44.70 Members Price £39.00 
eg DER 


@ Increases the sideways ROM capacity Sideways RAM Chips 


to 16 


e Fay Seet - allows all sockets 8K 6264 LP-15 
Me iot ilable at £7.50 
@ Complete with full and detailed Ss VAT beu ad p : 
instruction booklet : ` å | 
KJ Accepts 16K RAM in special sockets Ideal for use in SIDEWISE 


@ Battery back up facility for RAM 
(parts available directly from 
ATPL at extra cost) 


& As used at BEEBUG 
@ Reviewed in BEEBUG vol. 2 number 6 

HOW TO ORDER 
Please send your order with a cheque/ postal order made payable to BEEBUG, and 
enclose your membership number. Overseas members, please send the same amount 
this will cover the extra post but not VAT. 
The address for SIDEWAYS is: 
BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. HP10 8NP 


O 


BEEBUG 


NEWINTER-CHART 

THE CHART & GRAPH 

PLOTTING ROM 

This ROM-LINK compatible pro- 

gram allows practically any data 

to be presented in graphic form. 

Three basic types of graph are 

supported—the pie chart, bar 

graph and line graph. 

INTER-CHART is especially 

tailored to INTER-SHEET and so 

can very easily use spreadsheet 

data for plotting charts and 

graphs. RRP £36.80 

Members price £29.90 

DISC DOCTOR — The general 
utility Rom for disc users. 

RRP £33.35 

Members Price £29.00 

INTER SHEET — A spreadsheet 

Rom allowing 40,80 or 105 column 

screen display and compatible 


with Wordwise/View. The first of 
a ‘Rom-Link’ suite of products 
which will integrate together allow- 
ing data to be passed from one 
program to another. RRP £56.35 
Members Price £52.35 
PRINTMASTER — for Epson 
and Star printers — Allows easy 
access to your printer's special 
features. Specify Epson or Star 
version. RRP £33.35 

Members Price £29.00 
WORDWISE — The orginal 8k 
wordprocessor. RRP £46.00 
Members Price £36.00 
WORDWISE PLUS The 
improved word processor on 16k 
Eprom, incorporating its own 
programming language. RRP 
£56.35 

Members price £53.90 


ACCELERATOR— A compreh- 
ensive 24k Rom (2 Roms) 
Compiler. Supports full floating 
point arithmetic and will compile 
most Basic programs with only 
slight alterations. RRP £64.40 
Members Price £59.90 
GRAPHICS ROM — A host of 
routines for anyone interested in 
extended graphics on the BBC 
Micro. RRP £33.95 

Members Price £29.00 

SPEECH ROM — An advanced 
speech system using phonemes 
to allow any spoken word to be 
produced. This Rom requires the 
Acorn Speech processor to be 
present in your machine (A part 
of the Acorn Speech System. If 
required this chip is available at 
an extra cost of £10.) RRP 


Europe £26 Elsewhere £28 — 


d UPGRADES from WORDWISE to WORDWISE PLUS — à u 
Eprom by recorded delivery for upgrade. (Damaged Eproms enc. extra £5) UK £21.85 Airmai o 


UPGRADES TO END ON 18/10/85 — Please note that Computer Concepts will no me r 
upgrades from Wordwise to Wordwise-Plus after 18th Oct. 1985. 


return your: old Wordwise- manu 


£33.35 Members Price £31 00 


| COMPUTER CONCEPTS ROM | ORDER FORI 


Please send me 


price 


TOTAL ENCLOSED 


rr. ae "ec. Kap | 
Credit Card orders may be telephoned to (0727) 40303 ES Ea 


amount to include extra post but not VAT. Please make cheques payable to 


BEEBUGSOFT. 


Send to: “Rom Offer” Beebugsoft, PO Box 50, Holywell Hill, St. Albans, Herts. AL13YS 
To avoid delay please do not send this to the High Wycombe address, please do not combine 


orders for other BEEBUGSOFT products with this order. 


BEEBE 
SSF 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| Prices include post, packing and VAT, overseas members send the same 
| 
| 
| 
| 
| 
| 
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BEEBUG 


Name. Membership No. 
Address. 
Access/Visa Card No. | | |_| | | | I LI [ | 


| 
| 
| 
| 
| 
E 
SUPPLEMENT 


Expiry date 


_ TELECOMMUNICATIONS SPECIAL OFFER 


 BEEBUGSOF 


NIGHTINGALE AND COMMSTAR FROM PACE. 


On special offer this month is the combined communications pack from Pace, 
consisting of the Nightingale Modem and the Commstar Rom, with free Micronet 
subscription for 3 months. 


This pack will enable you to link your BBC Micro to Prestel, Micronet, Viewfax, 
Telecom Gold, Homelink and any number of bulletin boards throughout the 
country. Not only will you be able to talk to other computers, but also send telex 
messages, download software, send messages or go tele-shopping. 


NIGHTINGALE COMMSTAR 


A versatile, B.T. approved 1200/75 and 75/ The Rom software to control your modem 
1200 or 300/300 baud full duplex modem and allow it to link to Micronet, Viewfax etc or 
supplied with lead and manual. Compatible other computer users. 

with the auto dial/auto answer expansion 

board. 


e F RE E Three months subscription to Micronet. 


Yk yc Yc Ya Yk Yc Yk Yk ok Ye Yk Yc Yc Yc ok Tc Yc Ye ok Yc ok Yc A Hr 


x COMPETITION A 
All purchasers receive free entry into the “Pace Round 
Britain Race on Micronet 800” competition with a first prize * 
* of £1000 holiday in America. * 


or sd A A A E A A A A A A A 


NORMAL PRICE £159.85 iuc. VAT 
MEMBERS PRICE £135.00 FULLY INCLUSIVE 


UK BULLETIN BOARDS 


All the above listed boards were active as of late September 1985. Circumstances 


may have changed 


since then. and BEEBUG would appreciate members letting us know of 


any changes they have discovered such as. boards. that have .ceased operating or 
changed times and baud rates. Also, if you know of a board that is not listed here, 
please let us know for the benefit of other members. 


Some new boards, particularly : NBBS . and OBBS systems, enable Beeb owners with 
Commstar or the Demon Zromm to have colour. With Commstar use Mode 7 and switch off 


the filter mask at the command screen before entering 


'Chat' 


mode. Zromm users 


should use Mode 7 and *Chat instead of *Terminal. Then when logged on answer ‘Yes’ 
to the question 'Are you using software on a BBC that allows colour’. 


Aberdeen ITEC 
24 Hours 


Acorn 
24 Hours 


Amrad 
24 Hours 


BABBS 
21.00-90.00 


BABBS I 
24 Hours 


BABBS II 
24 Hours 


Basildon ITEC 
24 Hours 


Basildon ITEC 
24 Hours 


Belton BB 
24 Hours 


Bloxham NOBB 
22.00-01.00 


Bradford OBBS 
18.00-00.00 


kkkkkkkkkkkkkkkkkkkkkkkkkkikkkkkk 


0224 641585 
(Aberdeen) 
1208/75 Viewdata 


0223 243642 
(Cambridge) 
1200/75 Viewdata 


921 744 1558 
(Solihull) 
300/300 


0225 23276 
(Bath) 
300/300 * 


0394 276306 
(Felixstowe) 
309/300 


9268 778956 
(Basildon) 
300/300 


0268 22177 
(Basildon) 
1200/75. Viewdata 


9268 25122 
(Basildon) 
309/300 


$493 781334 
(Great Yarmouth) 
1200/75 & 300/300 


9295 720812 
(Banbury) 
300/300 


9274 496783 
(Bradford) 
309/300 


Brixton ITEC 
24 Hours 


C-View 
24 Hours 


CBABBS 


24 Hours (Ex.Thurs.) 


CBBS London. West 
24 Hours 


CBBS Surrey 
24 Hours 


CBBS South West 
24 Hours 


CFC#9 
24 Hours 


City Board 
24 Hours 


CNOL 
24 Hours 


COCO BBS 
24 Hours 


Communitel 
24 Hours 


Øl 735 6153 
(London) 
1200/75. Viewdata 


9702 546373 
(Essex) 
1200/75. Viewdata 


921 430 3761 
(Birmingham) 
300/300 


9895 420164 
(London) 
390/300 


04862 25174 
(Surrey) 
300/300 


9392 53116 
(Exeter) 
1200/75 & 300/300 


9395 272611 
(Exmouth) 
300/300 


ØY 381 4110 
(London) Se 
1208/75. & 300/30 


Ø524 60399 
(Lancaster) 
309/300 


9912. 651944 
(Tyneside) 
300/300 


91.968 7492 
(London) 
1299/75 Viewdata 
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Communi tree 
21.90—08.00 


Compulink Fido 
24 Hours 


Cyberzone 
24 Hours 


Cymrutel 
24 Hours 


Dark Crystal 
24 Hours 


Distel 
24 Hours 


Distel 
24 Hours 


Fastnet Fido 
22.00-08.00 


FBBS Jersey 
18.00-06.00 


FBBS Swansea 
24 Hours 


Fido - UK 
15.00-06.00 


Forum 88 London 
Evenings (Ring & ask) 


Forum 89 Hull 
19.30-23.30 


Forum 80 Spa 
22.30-00.30 


Gname at Hame 
24 Hours 


9874 711147 
(Wales) 
300/300 


96286 63571 
(Siough) 
300/300 


Øl 638 2034 
(London) 
300/300 


9492 49194 
(Wales) 
1200/75 Viewdata 


Øl 954 9847 
(London) 
1209/75 & 309/3900 


Qi 679 1888 
(London) 
300/390 


Øl 679 6183 
(London) 
1209/75 


851 268 5687 
(Liverpool) 
300/300 (Bell) 


0534 55855 
(Jersey) 
300/300 


9792 203953 
(Swansea) 
300/300 


9635 46480 
(Berkshire) 
300/300 


Øl 992 2546 
(London) 
300/300 


0482 859169 
(Hu11) 
390/300 


9926 39871 
(Leamington Spa) 
300/300 


91 888 8894 
(London) 
1200/75 Viewdata 


Gosport Apricot 
18.00-00.00 


Hackney BB 
24 Hours 


Hamnet 
18.00-08.00 


Haunting Thunder 
21.00-08.00 


Health Data 
24 Hours 


Inferno 
22.00-23.30 


ITCU Exchange & Mart 
24 Hours 


Keyboard 
20.00-00.00 


LABBS 
24 Hours 


Livingstone BBS 
24 Hours 


London BB 
24 Hours 


London W Tech Centre 
24 Hours 


London Underground 
24 Hours 


Mailbox 80 
24 Hours 


Mailbox 83 
20.00-08.30 WE 24hr 


0705 524805 
(Gosport) 
300/300 


Øl 985 3322 
(London) 
1288/75 Viewdata 


0482 497150 
(Hull) 
300/3090 


9752 364959 


(Plymouth) 
300/300 


91 986 4369 
(London) 
1200/75 Viewdata 


90206 41491 
(Essex) 
300/308 


91 960 4742 
(London) 
1200/75 Viewdata 


9908 668398 
(Milton Keynes) 
300/300 


91 373 6337 
(London) 
300/300 


8586 38526 
300/300 


Øl 455 6607 
(London) 
1200/75 & 300/300 


9895 52685 
300/300 


Øl 863 9198 
(London) 
1200/75 & 309/300 


951 428 8924 
(Liverpool) 


300/3900 


8384 635336 
(West Midlands) 
300/300 
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b Addictive launch BOFFIN < 
A Mad Professoronthe Loose 


E 
H 


Boffin is a challenging, action-packed game requiring a combination of 

cunning and slick keyboard control. Beware the Giant Puffer—Blimps in your 
way and give the massive Tarantulas a wide berth! Land on the giant 

hydraulic rams and they will stam you into deadly neutron magnets embedded in 

the cave roof! Manta-bats are useful allies and the trampolines will help you gain 

height — but remember to use your umbrella to break a deadly fali! 

Available BBC B and Electron £9.95 


ALSO AVAILABLE 


STRINGER 

Stringer is an arcade adventure 
game in which you are a press 
photographer set the task of 
snatching a shot of a Film Star in 
an hotel. The game is tantalisingly 
playable, graphically excellent and, 
of course — Addictive! 

Available £895. 


FOOTBALL MANAGER 

The All Time Classic 

Football Manager .. . Spectrum 48K 
£895... Commodore 64 £8.95 ... 
Amstrad CPC 464 £8.95... BBC B 
£8.95... Electron £8.95 . . . Dragon 
£7.95... Vic 20 £7.95 . . . ZX81 £795. 


To: Addictive Games Ltd. 7a Richmond Hill. Bournemouth. Dorset BH2 6HE 


Please send me: 

i ] cassette(s) for Boffin for. 
cassette(s) for Stringer for. 
1] cassette(s) of Footbali Manager for 
1 enclose cheque/postal order for" £ 
Please debit my Access card No. .... 


Y 


.. (computer) 


new world of discovery: 
waiting for you. | 


Name. 
Address 


Postcode . 
=m “mm oe em ss 


e Addictive Games e 
7a Richmond Hill, Bournemouth BH2 6HE 
Telephone: 0202 - 296404. 


oe E et ETE EE m 


d 


Access orders can be telephoned through on 102021 296404 g 


SPECIAL OFFER 
LIMITED STOCK AVAILABLE 


3 pen colour plotter. A4 size paper. Japanese made. RS232C (V24) serial 
interface. Maximum programmable plotting speed 200 mm/s. 

Automatic pen changing. Plots curves, arcs, loops, spirals, circles, straight lines, 
symbols etc. Also prints English & Greek characters. 

Complete with magnetic paper clamps, comprehensive instruction book including 
programming examples, 3 pens (black, red, blue). 

ONLY £275 including free delivery by Securicor. Items not included are 13 amp 
plug, computer interface cable & A4 size paper. 

All orders acknowledged by return post and despatched by Securicor within 48 
hours of bank clearance of your cheque. 


Optional extras 

6 BBC interface cable £10.85. @ Glossy paper 100 sheet pad £6.25. 

@ Water-based pens (for paper) @ Pen colours: Black, Blue, Red, Green, 
£1.50 each. Brown, Orange, Pink, Purple 


@ Oil-based pens (for overhead 
transparencies) £1.75 each. 


All prices include post & packaging. Please write your name & address clearly in 
BLOCK letters. If sending cash, you MUST use a registered envelope. 


IAUYNH OS ‘AJAXIS ISuld ‘JWOD LSY 


NORMANDIE TRADING LTD., Postbox 567, St. Helier, Jersey. 0534-83895. 
Literature requests 0753-29911 (24 hours). 


R. & D. ELECTRONICS 
MINI-ROM BOX 


Fast ZIF socketed external ROM changes. 
Once fitted the box can be unplugged from 
outside the Beeb. Lines properly terminated. 
As used in Universities, Polytecs, Hosp., etc. 

Simple fitting - choose your priority 
Safer than ashtrays - gives full protection 
Easier than cartridges - fits anywhere 
Cheaper than boards - £16.50 inc. 


KEY CAPS 


Fit neatly over BREAK/ESCAPE keys to 
prevent their accidental use. 
Removed/fitted in less than one second. 

Definitely a must with kids. I 
£1.20 each 2 for £2.00 inc 


TELETYPE 


Hard and Software to run teletypes from 
BBC without loss of facilities. £16.50 inc. 


7 WIMBLESTONE ROAD, 
WINSCOMBE, AVON BS25 1JR 


Events 


`" Compec "85 
pel Sn 


* Olympia, London 12-15 Nov 


Micro User 


i ` Horticultural Halls 14-17: Nov 
. Westminster 


Computers in > 
= ucation UA 
Barbican Centre ` 22-25 Jan 
` ; c2 1986 


[023705 Acorus — 
“Central Hall, | 22-23 Nov 
“Westminster - Bu uml c 
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lassified Ads 


Rates are 18p (inc VAT) per word for members' personal ads. Members' business ads 
cost 30p (inc VAT) per word - and if you are selling any item in quantities rather than 
one-off, then that counts as business. Send cheque with order to PERSONAL ADS, 
PO BOX 50, ST. ALBANS, HERTS AL1 3YS. It is essential to include your membership 
number. Please note that we cannot arrange for box numbers. 


Nutcrackers: Tape 2 Tape, Tape 2 Disc, 
Disc 2 Tape and Disc 2 Disc: Only £51! 
The best and ` cheapest package 
available, 'How to move your s/w to 
disc’. Extensive text with hints and 
suggestions + cassette with 9 programs 
to help you: £5.- Nutcracker + Howto 
together £9. We sell many other 
utilities: SAE. Note BBC only (sorry!). 
R-SOFT, 22 Marriotts Close, Felmersham 
MK43 7HD, Beds, Tel: 0234-781730. 


'D-Master', the most powerful disc 
analyser and backup program, You need 
either an Acorn DFS or DNFS, or Watford 
DFS 1.3 onwards. It is better than 
other programs selling for more than 
£10-£15! Price: £7.00; 
owners: £3. R-Soft, 22 Marriotts Close, 
Felmersham, Beds MK43 7HD. Phone 
0234-781730. 


CP/M user group(s) disc libraries, 4ØØ+ 
volumes with 8ØØØ+ items £1.50 / vol., 
Acorn Z80, Torch and other formats. 
Also format translation service. SAE or 
phone. R.Smith, 138 Holtye Road, East 
Grinstead, Sussex RH19 3EA, Phone 
Ø342-313883. 


Special members notice: Format 40/89 
club, 5 Marsh Street, Bristol. BSl 4AA. 
Telephone %272-799979, Paul Beverley's 
books: Using Wordwise Plus / Wordwise 
Applications guide with 15* programs on 
disc. For 5.25" £9, For 3" or 3,5" £12, 
SAE for club details. 


MARKS AND STATISTICS for teachers and 
lecturers. Revolutionizes the handling 
of marks. Simple to use spreadsheet 
format. 339 students per file. Up to 
388 subjects. Sorts, analyses, 
normalizes, calculates means, applies 
weighting factors. Prints histograms 
and lists. Model B. 0.8.1.2. Full 
documentation. Disc (48 or 8g 
track) £16. In-Form, 73 Woodfield Park, 
Colinton, Edinburgh EH13 ØRA. 


for Nutcracker' 


Games Games Games Games Games Games 
Games Games Games Games. 2Ø games on 
the BBC micro for £7.99. All too 
quality, something for everyone. Arcade 
games, card games, strategy games and 
aðventure games. Games feature machine 
code, high-res multicoloured graphics, 
sprites etc. Buy and you won't be 
disappointed. Disc only, send cheque 


and details of disc system to: 
SCARABSOFT, 39 Woodfields, Briston, 
Norfolk. NR24 2JY. 

For sale: Demon Modem, Prestel and 


bulletin board compatible, auto dial / 
auto answer. ROM driven (included) £60. 
91-863 9973 (evenings). 


from 
other 


All  BEEBUG magazine cassettes 
first to Aug/Sept 85, plus 


Acorn Z8Ø second processor, with 
software and manuals: Memoplan, 
Fileplan, Graphplan, Accountant, 
Nucleus, CIS Cobol, Basic. £150. 
91-354 1721. 

Acorn 280 second processor with 


accompanying software and manuals. Mint 
condition. £325 ono. Tel:  Hemel 
,Hempstead 0442-64374, 


jFor sale: Acorn disc interface kit with 
DNFS 1.2 £50, Disc Doctor £15, Wordwise 
Plus £30, O Graphics Extension £15, 
DNFS 1.2 £19, Acorn Database (disc) £8, 
Clares enhanced Betabase £12, BEEBUG 
j Toolkit £12, BEEBUG Spellcheck II £15. 
jAll in excellent condition with manuals 
jetc. Phone 8935-21669. 


cassette software and blank cassettes | 


about 40 in all 
0628-27131 evenings. 


£50 ono. Tel: 


IKON Ultradrive (see Vol.3 No.7 page 


I 
I 


{Binders for User and Advanced User 
| Guides. Stiff plastic, 3-ring, titled 
ispines. £4.50 inc.p&p. Hepworth and 


iCo., Waulkmill Farm, Ingersley Vale, 
jBollington, Cheshire SK1@ SBP. 


29) complete with leads, O.S ROM, ; 
instruction booklet and eleven : 
Cassettes, In excellent order. Have 


upgraded to discs. £65 ono. E.Holland, 
1 Prospect Cottages, Boughton Aluph, 
Ashford, Kent. Tel: 9233-28539, 


Acorn APlØØA printer, complete, £80. 
Disc drive, 190k, 40 track, complete, 
£68. Acorn DFS ROM 0.90, £10. Computer 
Concepts Graphics ROM, manual, £15. Ali 
items in  V.G.C., tel: Lloyd on 
Maidstone 30913. 


Printer -  Tandy LPVII dot matrix, 80 
column, tractor feed. Centronics and 
parallel. Works with Beeb. £98. Phone 
291-263 6760. 


For sale: 24k Datagem ROM database on a 
carrier board, In original box with 
manual and demo disc. £59.08 ono. Tel: 
Ø2Ø2-885166 (Bournemouth). 


BDP 'Redactor' 


twin cassette editing 
typewriter 


including IBM  golf-ball 
typewriter. Suitable for conversion to 
jletter quality printer. Offers? 
0628-31869. 


Acorn Music 509 - programable 
synthesizer for BBC. Complex and 
exciting sounds can be achieved with 
Hi-Fi quality. 6 months old. £150. Tel: 
Colyton 6297-52566. 


For sale: BBC BD, hardly used with four 
years extended warranty, LVL double 
169k disc drive, datacorder, joysticks, 
various software, blank discs and 
books. Original cost around £8ØØ.- 
offers around £450.- please. Two years 
Acorn User, The Micro User and BEEBUGs 
free to purchaser. Telephone Simon on 
91-422 5587. 
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Maptel 
24 Hours 


Marctel 
19.0Ø-22.09 


MBBS Leconfield 
24 Hours ` 


MBBS Mitcham 

24 Hours 
Metrotel 

24 Hours 

MG-NET 

Sun 17.0Ø-22.0 
Microlive 


24 Hours 


Microweb 
24 Hours 


MOBB 
24 Hours 


Morecambe ‘OBBS 
24 Hours - 


NBBS Aberdeen 
24 Hours 


NBBS Cheshire 
24 Hours 


NBBS East 
24 Hours 


NBBS Essex 
24 Hours 


NBBS London 
21. 90-28. a WE 24. Hrs 


9702 552941 


(Essex) 
300/390. 


ØY 346 7159 
(London) 


- 300/39 ` 


"9401.59745 ` 
(Beverley) 


309/300 


Øl. 648 0918 


1200/75 & 300/300 


91.941..4285 
(London) 
1200/75 Viewdata 


41 399.2136 


309/300 


Øl 579.2288 
(London) 
300/300 


Ø61 456 4157 
(Manchester) 
309/300 


061 736 8449 
(Manchester) 
1200/75 & 300/300 


0524 426133 
(Morecambe) 


- 300/3090 & 1209/75 


0224 647158 
(Aberdeen) 


:309/300 


0936. 77025 
(Cheshire) 
1200/75 :& 300/300 


:0692.639186 


(Norfolk) + > 
1200/75: & 300/3900 


0277 228867 


(Essex) 


1200/75 & 300/30 


91:883. 5299 
(London) ` 


1290/75 & 300/300 


NBBS Lutterworth 


945 55 4798 


20.00-08. 28 WE 24. Hrs (Lutterworth) 


-NBBS Midlands II 


19.00-23.00 WE 24hrs 


NBBS. Marlow. 


Sat-Thur 18.00-99.00 


Ring and Ask 


NBBS NE 
24 Hours 


NBBS Wallington 
23.00-16.00 


NKABBS 
21.30-00.00 


Norview 
24 Hours 


OBBS “Bradford 
WD: 18.90-00.00 


OBBS Manchester 
24 Hours 


OBBS 2 North Wales 
24 Hours 

Octopus 
18.00-08.30 


Optel 
24 Hours 


OSI Lives! 
24 Hours 


Owltel 


24 Hours 


PBBS-NI: 


22:00-00. 00 


To be continued 


309/300 


0246 865843 
(Chesterfield) 
390/300 .& 1208/75. 


9628 46691 
(Berkshire) 
1209/75 & 300/300 


9224 641966 


(Abrerdeen) ` 
300/300 & 1200/75 


Øl. 669 7249 
(London) 
1200/75 & 300/300 


0795 842324 
(Kent) 
309/300  * 


9604 2044) ` 
(Northampton) 
1288/75. Viewdata 


0274. 496783 
(Bradford) 
300/300 


061 427 1596 
(Manchester) 
300/300 


0244 549336 
(Wales) 309/308 


0272 421196 
(Bristol) ` 
300/300 


91.794 0655- 
(London) ` . 
1290/75 Viewdata 


91.429. 3047 
(London) 
300/300 ` 


91.927 5820 
¿ (London) 


1200/75 Viewdata ` 


8762 333872 


(N.Ireland) 3007300 
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(for the BBC Micro) 


Star Software's 6502 Macro Assembler ROM is the most 
useful utility so far devised for users of the BBC Micro 
wishing to take full advantage of the speed and efficiency 
of machine code programming, and to break free from the 
limitations of the standard BASIC assembler. 

Macro Assembler programs may be built using any 
number of different source code files, each created using 
the BASIC interpreter, and held separately on tape, disk, 
and/or in RAM, and automatically merged together at 
assembly time, enabling machine code programs to be 
produced from source code files which, if taken together, 
would be many times too large to even fit into the BBC's 
memory. As a result, there is practically no limit to the size 
of the machine code programs which may be produced 
using the Assembler ROM. For example, assembling the 
source code files for the ROM itseif (a total of over 70k of 
code) uses only 24% of the available capacity of a 
standard BBC Model B. 

Advanced macro facilities, as well as many other features, 


BIG ED 


FULL SCREEN EDITOR 
FOR THE BBC MICRO 


Coloured REM statements 
Update anywhere on screen 

Fast screen paging 

Selective *RENUMBER command 
String search and replace 

Real time clock built-in 

FULL use of PF keys 

View Basic source from disk to 
specified point in program 
Special split screen feature 
Scroll: top, bottom, up, down 
Statement insert, delete, copy, print 
Comprehensive user manual 


| MAINFRAME POWER MICRO PRICE 


£ 1 2 a 95 inclusive 


Available on 40 or 80 track disk from 


LEE Computers 


160 Highfield Road, Hall Green, 
Birmingham 021- 777 9631 


STAR SOFTWARE'S 
6502 MACRO ASSEMBLER ROM 


Send cheques/Postal Orders for £24. 99, stating your name and address t to: 
Star Software Ltd., Dept BGA, P.O. Box 5, Wigan, Lancashire. 


make programs more readable and easier to write and 
maintain than standard BASIC assembler programs, and 
because source code can be spread across many 
separate files, programmers need no longer be shy of 
including helpful comments and indentations in their 
programs in order to save space. 

Code may be assembled to load at any address, and 
automatically execute at any user definable point within 
the code. 

Conditional assembly allows the same section of source 
code to produce different object code, at different times. 
The Assembier uses standard 6502 mnemonics as well as 
the additional opcodes available with the newer 65C02 
CPU (such as in Acorn's 6502 second processor). 

The ROM will work across the tube with the 6502 second 
processor. 

Now all users of the BBC Micro can produce large, 
professional machine code programs without recourse to 
expensive add-on hardware, 


ANIME 
BEEBUG 


For advertising details please 
contact: 


Phyllida Vanstone 
on 
St. Albans 
(0727) 40303 


or 
Lynn Lloyd 
on 


(0923) 677222 


or write to: 
P.O. BOX 50 
St. Albans 
Herts. 
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BEEBUG AT THE MICRO USER SHOW 


BEEBUG (both software and magazines) will be at the | 
Electron and BBC Micro User Show (14th = 17th November), 
and we hope to see you there. 


We will not be attending the Acorn User Christmas Show 
the following ` weekend, The Micro User Show has 
traditionally been the BBC christmas show; it was 
arranged well in advance of the Acorn User Show, and in 
addition is, in our view, at a far superior venue. 


All Beebug and Beebugsoft products will be available at 
our stand, and there will be special demonstrations of 
our new product range. 


We look forward to seeing you at this show, or at the 
Acorn User Show next summer. 


It's on its way...the 
- BIGGEST show of all! 


* Your first chance to see the exciting programs and 


peripherals now being planned for 1986. 


Hundreds of Christmas hardware and software bargains 
froin leading BBC Micro and Electron suppliers.. 


: s. Free:software - bring your own blank cassette and Å dis 
download programs directly from Micronet. É une 


Use our satellite link to a giant American database 
and:send messages to micro users in the USA: 


Å * Meet the experts ~ programmers and writers will be 
“on hand to answer all your queries. 


“e Beebug members: Hand this ad 
am ;cin at the door and save £1 off 

x x the normal admission price of 
Á aa. £3 (adults) and £2 (children). 
Ë OF F! Maximum of 4 people per`ad.: 
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Simply light years ahead 
of the opposition 


Opus announce the biggest disc drive breakthrough for years — 
CHALLENGER. It could make every other disc system for the BBC micro 
outdated overnight. 

An amazing 3-in-1 design has produced Britain's first complete plug-in 
disc system for the BBC computer. No more complicated interface 
connections, soldering or track cutting, Challenger is an all-in-one disc 
system ready to plug straight into your computer. It’s the simplest disc 
link-up ever and a winning combination that no other system can 
match. 


5%” DOUBLE-SIDED 40/80 TRACK DISC DRIVE | 
DOUBLE DENSITY DISC INTERFACE 

DOUBLE DENSITY Ae 
SUPER FAST SOLID STATE RAM DISC — Up to 20 times faster than disc drive 
SUPER FAST SOLID STATE RANT LS. Lnd providing a massive 256 K of RAM _ 


and providing a massive 256 K of RAM 


ALL THIS IN A SINGLE UNIT FOR AN AMAZING £249.95 


And just look at the storage capacity of this remarkable stand-alone 
system. 

Our 5%” disc drive and built in double-density disc interface — an 
extended version of the highly praised Opus DDOS, voted fastest 
system by ‘Acorn User’ and favourite choice of ‘A & B Computing’ — 
combine to give you a powerful 1 Megabyte system. But Challenger 
has a third dimension, a super fast Solid State RAM DISC for instant 
access to an additional 256 K of RAM. Effectively a lightning fast 
second disc drive which can be upgraded to 1⁄2 Megabyte capacity for 
only £49.95. It makes Challenger superior to a dual disc drive, giving 
faster access and less wear and tear on your drive. 

Challenger uses the same disc controller chip as the new BBC B + 
computer making it compatible with all leading software titles. Call us 
for our full compatibility listing. 

We've provided a selection of utilities on ROM and Challenger's disc 
drive is 40/80 track switchable. The extended DDOS takes no User 
RAM, PAGE, the position at which BASIC programs load, is left 
unchanged, normally staying at &OEOO, and Challenger dynamically 
moves files on the disc to overcome the 'can't extend' problem. 


Challenger's price of £249.95 includes our unbeatable two year 
warranty, a full operating manual, VAT and free delivery. Call us now 
on 0737-65080 for details of our nationwide dealer network or simply 
post the coupon below. 


OPUS SUPPLIES THE DRIVE 

The Opus disc drive range has few rivals for quality, reliability, and 
sheer value for money. We've taken the best in Japanese disc drive 
technology and backed it with Britain's longest guarantee — an 
amazing two years. For full details of our extensive range of half- 
height 514” disc drives together with information on your nearest 
stockist, 'phone 0737-65080. 


OPUS — BRITAIN'S LEADERS IN DISC DRIVE INNOVATION 


mm em em em Gur sm mm Em rm mmm mm mmm mm en e u G Gu mm a cm em em 
i To: Opus Supplies Limited, 55 Ormside Way, Holmethorpe Industrial Estate, Redhill, Surrey. B 
Please rush me the following: (PRICES INCLUDE VAT AND CARRIAGE) 


Challenger Unit(s) £249.95 each g 
RAM DISC upgrade(s) to 512K at £49.95 each 8 
lenclose a cheque for £ or please debit my credit card Ë 


account with the amount of £ Ë 
My Access |_| Barclaycard | | no.is:| | | DESERRI 
p 

a 


we us. 


ADDRESS 
K Opus Supplies Ltd š 


TELEPHONE 


mmm om ren sma em mm cm cm ee ms ren a m ms em um sm d 
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“AGE 
A&F 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ACORNSOFT 
ATARISOFT 


.BUG-BYTE 
BUG-BYTE 
DURRELL 
DYNABYTE 
DYNABYTE 
FIREBIRD 
FIREBIRD 
FIREBIRD 
FIREBIRD 
ICON 
ICON 
ICON 


SOFT. SPOT 
SOFT SPOT 
SOFTWARE 
SOFTWARE 
SOFTWARE 
SUPERIOR 
SUPERIOR 
SUPERIOR 
SUPERIOR 
SUPERIOR 
We Es soft 


: BEEBUG MAG 


'MICRO-BYTE 

MICRO POWER 
MICRO POWER 
MICRO POWER 
MICRO POWER 


INV 


PROJ Í 
PROJ | 
SOFT | 
SOFT | 
SOFT: | 
SOFT. å 
SOFT Ë 


New High Scores 


BEEBUG 


Planes 

Plank Walk 
Carousel 
Invaders 
Labyrinth 
Planetoid 
Revs 
Tetrapod 
Pole Position 
$pace City 
Oblivion 
Sealord 
Combat. Lynx 
Space Ranger 
Demolator 
Acid Drops 
Bird Strike 
Gold Digger 
Hacker 
Caveman. Capers 


| Contraption 


Drain: Mania 

3D Space Ranger 
Jet Power Jack 
Martian Attack 


| Mine 
i Mr.Ee 


Fruity Freddy 


Jet Boat 

Karl's Kavern 
Manic Miner 
Mr.Wiz 

Repton 

Smash: and Grab 
Spitfire Command 
Zany Kong jnr. 
Crawler 


| R.Bunnett 
| R. Bunnett 
| R.Bunnett 
| P Orton 

É P.Orton 

| J.De Saram 
| N.E,Cromane 
Å M.Orton — 
| J.De Saram 
| R.Bunnett 
| Cthulhu 

| Ms Orton 

Å P.Orton 

| P.Orton 

| P.Orton 
P.Orton 

| P.Orton 

É P.Orton 

| P.Orton 
P.Orton 

| Cthulhu 
Cthulhu. 
| R.Bunnett 
| Cthulhu 

| Cthulhu 

| Cthulhu 
C.Rogers 
P.Orton 

| R.Bunnett 
| Cthulhu 

| P.Orton 

| P.Orton 

| P.Orton 

1 P.Orton 
P.Orton 

| R.Bunnett 
|j P.Orton 

| P.Orton ` 
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CIRKWIK 
Schematic drawing on the 


[3 [9 (9 micro 


A lightpen or trackerball driven 
CAD package orientated to 
the production of schematic 
drawings, such as circuit dia- 
grams, flow charts, power 
systems, pipework diagrams, 
fluid logic diagrams and many 
similar professional and engin- 
eering applications. 


* 


Lightpen or trackerball driven. 


* Virtual screen 8x the BBC’s mode 4 

Uses standard dot matrix printer in dual- 
density graphics mode to produce excellent 
quality diagrams. 

Automatic parts list generation 

Up to 640 symbols may be in use in any 
one diagram 

* Total symbol hbrary unlimited in size 
Create your own symbols with the lightpen 
ona highly magnified scale 

* Many electronic symbols already included 


* x * 


* 


in package. 
CIRKWIK Program Lightpen only version `... £19.95 
CIRKWIK Program Trackerball/lightpen version... £24.95 
CIRKWIK Program Grafpad/lightpen version .............. r... £24.95 
DAS Lightper 4.2 eie de ERE eT C der dd £25.00 
Bata n E Trackerball J... eer RE re Gp £59.50 
EE | ATARL TAK Bill O hace Ee Ee £19.95 
ATARI BBC Interface ... 2.2.0.2 n £13.00 
MOUSE Interface ................. e hee £13.00 


S.A.E. for details of lightpen, CIRKWIK and other programs. 


DATAPEN MICROTECHNOLOGY LTD. Dept. BG3. Kingsclere Road, Overton, Hants. RG25 3JB 
TEL: (0256) 770488 
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Electronequip 


‘(Authorised BBC Micro Dealer, and Econet service centre) 


14” TV/Monitor 
£199.00 inc VAT 


Remote version 
£229.95 inc VAT 


Offer includes 


RGB/BBC cable 12" Green Screen £69.00 inc VAT š 


SOFTWARE SALE 


most ACORNSOFT £2.99 inc VAT 
most OTHERS £1.99 inc VAT 
~ VOLTMACE JOYSTICKS 

* 10% off list prices 


BJVOLT 14 
BJVOLTAD 
BJVOLT3T 
BJVOLT3S 


Voltmace Deita 14B Joysticks ............................ 
Voltmace 148/1 Adaptor Box 

Voltmace Delta 3B Twin Joysticks .............. d 

Voltmace Delta 3B Single Joystick ...............1 lo. 


SIDEWISE SIDEWISE FITTED 


"SIDEWAYS" rom board for BBC Micro. 
No soldering required £39.33 inc VAT 


SPECIAL OFFERS 


800K disc drive switchable with power 
supply, Plinth and Acorns DNFS 
only £409.00 inc VAT 


400K single disc drive not P.S.U. and 
Acorn DNFS only £277.73 inc VAT 


All prices include VAT 


& 
4 
E 


| DISC BOXES 
à 30 Disc Box ............. 6.90 
40 Disc Box .. 


MODEMS 

Telemod ii £69.95 inc VAT 
Telemod III £174.99 inc VAT 
Nightingale £159.85 inc VAT 


LISTING PAPER 
11x9.5" with micro Ë 
perf's.. £7.50 per 1000 § 


+++ 13.80 | Microvitec ... 


45 Disc Box .. PWIOBO ........... 4.60 


| 90 Disc Box 


MAIL ORDER 
ONLY THIS 
ITEM. 


| RX-8OFT £258. 75 inc VAT 
| FX-80 £377.20incvat = 


| Printer Pack FREES paper & BBC cable £8.05 inc VAT 
Å Screen dump rom available for £11.50 inc VAT 


KP810 
£289.00 inc VAT 


Printer price HESE paper and BBC interface cable. 
Screen dump rom available for £11.50 inc VAT 


MAIL ORDER: 36-38 WEST STREET 
FAREHAM, HANTS. (0329) 230670 
SHOP/TECHNICAL: 59 WEST STREET 
FAREHAM, HANTS. (0329) 230671 

KINGS LYNN: 17 TENNYSON AVE. (0553) 3782 


Postage 46p. Securicor £4.90 (per parcel) inc. VAT. 

All prices include VAT 

Prices subject to variation without prior notification 
Ali offers subject to availability 

TRADE, EDUCATIONAL & HMG ORDERS 
(Phone for discounts) 

Large Stocks - 24 Hour Despatch 


Electronequip 


` 7:59 West Street; Fareham 


